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#DECL A RE-GLOBAL : 


active- for-block-list, 
basic-progr am , 
current-print-line, 
current-statement, 
data-list- pointer, 
fir st- time-through , 
initial-in put- state, 
input-file , 
input- f rom-terminal , 
input-line , 
latest-return- point, 
return- point-list 
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#DE CLARE-SYNTACTIC -COMPONENT: 


al l-fors-have-matching-nexts-in , 
argument-expression-of , 
ar ray-declaration- for , 
bound s-part-of f 
control- variable- in , 
def-statement-expression-of , 
def-statement-name-of , 
def-statement-parameter-of , 
def-statement-with-name, 
destination- line-number-list- in , 
destination-line-number-of , 
ends- in -separator , 
f irst-dimension-bound-of , 
f irst-dimension-of , 

first-dimension-upper-bound-value-for, 

i irst-executable-statement-starting-with , 

has-an-argument , 

h a s-on e-dimension , 

ha s- two-dimens ions , 

increment-part-of -for , 

i ndex -ex pr ess ion-of, 

in it ial- value-par t-of-f or , 

input-data- list-in , 

is-abs-function-ref, 

is-atn-f unction-ref, 

is-cos-f unction-ref, 

is-def-statement-parameter , 

is-def-3tatement-with-parameter , 

is-ex ecu table-statement , 

is-exp-function-ref , 

is-explicitly-declared-array , 

i s- in t- function-ref, 

is-log- function-ref, 

is-non-execu table , 

is-not-a-control-statement , 

is-not-stop-or-end , 

is-numeric-datum , 

is-numeric-def ined-f unction-ref , 

is- numeric- ex press ion , 

is-numer ic-relational-expression , 

is-numer ic- variable , 

is-parenthetical, 

is-pr in t- separator , 

is-quo ted -string, 

i s-rnd-funct ion-re f , 

i s- s gn- function-ref, 
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ls-simpl e-control -statement , 

is-sin-function-ref, 

is-sqr- function-ref, 

is-string-constant, 

is- string-expression, 

is-string-relational-expression, 

is-string-variable, 

is-tan-function-ref, 

last-seg-of , 

left-hand-side-of, 

limit-part-of-for, 

line-containing, 

line-number-part-of, 

line-number-value-of, 

list-of-variables-to-be-input-in, 

matching-next , 

nameable-part-of, 

next-ex ecu table-statement- following , 

next-statement-successor-of, 

number-of-bounds-in, 

number-of-dimensions-in, 

number-of-subscr ipts-in , 

numer ic-arr ay-name-of , 

numer ic-def ined-function-name-of , 

numer ic-de fined- function-ref -of, 

numer ic-expression-of, 

numer ic-suppl ied- function-ref -of, 

operand-1-of , 

operand-2-of , 

option-base-for, 

opt ion-base-of , 

parent-node , 

print-list-sequence-of, 

relation-of, 

relational-expression-of, 

right-hand-side-of, 

root-node , 

s-own -line-number, 

second -d i men  si on -bound-of , 

second-dimension-of, 

second-dimension-upper-bound-value-for, 

sequence-of-ancestors-of, 

sequence-of-array-declarations-and-references-in, 

sequence-of-array-declarations-in, 

sequence-o f- array-ref  erences-in, 

sequence-of-def-statements-in, 

sequence- of- defined -function -ref erences-in, 

sequence-of-ex ecu table- statements- in , 
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sequence-of- for- statement s- in , 
sequence-of- for- statements- preceding , 
sequence-of- line- ids- in , 
sequence-of-lines-in, 
sequence-of-next-statements-following , 
sequence-o f-next-st at ement s- in, 
sequence-of -opt ion-statements- in  , 
sequence-of-statements-in , 
slmple-stateraent-successor-of, 
standard-array-element-name-of , 
standard-name-of , 

standard -parameter-name-derived- from , 
statement-containing , 
statement-part-of , 

statement-whose-line-number-is-equi valent- to , 

string-constant-of , 

string-expression-of , 

string-variable-of , 

subscript-part-of, 

totality-of-data-in 

#. 
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If DF  program 


= > <*<line>>  <end-line>  If. 

0DF  line 

= > <line-id>  <fl>GAp>  <statement>  <#GAP>  <end-of-l ine>  If. 

#DF  line-id 

= > <line-number>  It. 

#DF  end-of-line 

= > < ' t LF  ] ' > <#GAP>  if. 


0DF  end-line 

=>  <line-id>  <#GAP>  <end-statement>  OGAP> 


<end-of-line>  if. 


ODF  end-statement 
= > ' END ' > If. 


If  DF  statement 

=>  <data-statement> 

=>  <def-statement> 

=>  <d imens ion-3tatement> 

=>  < for-statement> 

=>  <gosub-statement> 

=>  <goto-statement> 

=>  < i f-then-statement> 

=>  < input-statement> 

=>  <numer ic-let-statement> 
=>  <string-let-statement> 
=>  <next-statement> 

=>  <on-goto-statement> 
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=>  <option-3tatement> 

=>  <pr int-statement> 

=>  <randomize-statement> 
=>  <read-statement> 

= > <remark-statement> 

=>  <restore-statement> 

=>  <return-statement> 

=>  <stop-statement>  9. 


/IDF  numeric-let-statement 

=>  < 'LET ' > <#GAP>  <numeric-var iable>  <*G A»>  <equals> 
<9 GAP>  <numeric-expression>  9. 


9 DF  string-let-statement 

=>  < 'LET ' > <#GAP>  <string-var iable>  <JGAP>  <equals> 
<AGAP>  <string-expression>  9, 


9 DF  goto-statement 

= > < 'GO ' > <%<*SPACE>>  < ’ TO ' > <fi>GAP>  <line-number>  9. 


#DF  line-number 

=>  <dlgit> 

=>  <digit>  <digit> 

=>  <diglt>  <digit>  <digit> 

=>  <digit>  <digit>  <digit>  <digit>  9. 


9 DF  i f-then-statement 

= > < ' IF  ' > <#GAP>  <relational-expres3ion>  <#GAP> 
< ' THEW  ' > <9GHP>  <line-number>  9. 


9 DF  relational-expression 

= > <numer ic-expression>  <*GAP>  <relation>  <«GAP> 
<numer ic -expression > 

=>  <str ing-expression>  <#GAP>  <equality-relation> 
</>GAP>  <string-expression>  9. 


syntax-6 


01/28/77 


01/28/77 
SEMANOL  Project 


Specification  of  BASIC 
Context  Free  Syntax  Section 


0PF  relation 

=>  <equal ity-relation> 
=>  <less-than> 

=>  <greater-than> 
r>  <not-less> 

=>  <not-greater > 9. 


#DF  equality-relation 

=>  <equals> 

=>  <not-equals>  9. 


#DF  not-less 

= > <greater-than>  <equals>  9. 

#DF  not-greater 

=>  <less-than>  <equals>  9. 

0DF  not-equals 

=>  <less-than>  <gr eater-than>  9, 

9 DF  go3ub-statement 

= > < ’ GO  ' > <%<0SP ACE>>  < ' S U 9 ' > <#G AP>  <line-number>  9. 


9DF  return-statement 
= > < * RETURN ' > 9. 


/»DF  on-goto-statement 

=>  <’0N’>  <9G AP>  <numer ic-expression>  <9 GAP>  <’G0’> 
<1<0SPACE>>  < ' TO  ' > < # G A P > <line-number>  <*  <<9 GAP> 
<comma>  <flGAP>  <line-number>>>  9. 
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IDF  stop-statement 
=>  < ' STOP ' > I. 


IDF  for-statement 

r > < ' FOR ' > <#GAP>  <control-var iable>  <IGAP>  <equals> 
<IGAP>  <initial-value>  <#GAP>  <*T0'>  <#GAP>  <limit> 
s > < ' FOR  ' > < IGA  P>  <control-variable>  <IG AP>  <equals> 
<IGAP>  <initial-value>  <IGAP>  <’T0’>  <IGAP>  <limit> 
< IG AP>  < ' STEP ' > < IG A P>  < increment>  I. 


IDF  control-variable 

=>  <simple-numeric-var iable>  I. 

IDF  initial-value 

=>  <numer ic-expression>  I. 

IDF  limit 

=>  <numer ic-expr ession>  I. 

IDF  increment 

=>  <numer ic-expression>  I. 

IDF  next-statement 

= > < ' NEXT  * > <IG AP>  <control-var iable>  I. 

IDF  print-statement 

= > < ' PRINT ' > <print-list>  I. 

IDF  print-list 

=>  <H<<INILSET  IU  <<IGAP>  <pr int-item>>>  <IGAP> 
<pr int-separator>>>  <IHILSET  IU  <<IGAP> 
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<print-item>>>  It. 

It DF  print-item 

=>  <expression> 

=>  <tab-call>  f. 

0DF  tab-call 

=>  <*TAB,>  <#GAP>  <open>  <#GAP>  <numeric-expression> 
<(1GAp>  <close>  it. 

#DF  print-separator 

=>  <comma> 

=>  <semicolon>  #. 

#DF  end-of-print-line 
=>  #NILSET  #. 

#DF  input-statement 

= > < ' INPUT  ' > <0GA?>  <variable-list>  it. 

0DF  variable-list 

= > <variable>  <t<<#GAP>  <comma>  <fl,GAP>  <variable>>>  It. 

(IDF  data-statement 

= > < ’ DATA  ’ > <#GAP>  <data-list>  It. 

it  DF  data-list 

= > <datum>  <%<<^^G^P>  <comma>  <#GAP>  <datum>>>  #. 


0DF  datum 
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s>  <quoted-strlng> 

=>  <unquoted-str lng>  9. 


IDF  read-statement 

s>  < ' READ ’ > <IGAP>  <variable-l lst>  I. 


#DF  restore-statement 

I 

i 

=>  < ' RESTORE ' > #. 

i 

#DF  dimension-statement 

=>  < ' DIM ’ > <#GAP>  <array-declaratlon>  <%<<#GAP>  <comma> 
<#GAP>  <array-declaration>>>  I. 


#DF  array-declaration 

s>  <numeric-array-name>  <IGAP>  <open>  <#GAP>  <bounds>  j 

<#GAP>  <close>  #. 


#DF  bounds 

=>  <lnteger> 

=>  <lnteger>  <#GAP>  <comraa>  <IGAP>  <lnteger>  9. 


9 DF  option-statement 

S>  < 'OPTION  BASE ' > < #G A P > <’0»  ,'1'>  9. 


9 DF  def-statement 

=>  <'DEF'>  <#GAP>  <numerlc-def ined-functlon>  <#GAP> 
<equals>  <#GAP>  <numer lc-expression> 

=>  <’DEF'>  <#GAP>  <numerlc-def lned-functlon>  <#GAP> 
<parameter-llst>  <#GAP>  <equals>  <#GAP> 
<numerlc-expresslon>  9. 


IDF  numerlc-def lned-functlon 
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=>  < ' FN ' > <letter>  I. 

IDF  parameter-list 

=>  <open>  <IGAP>  <parameter>  <#GAP>  <close>  I. 
IDF  parameter 

=>  <simple-numeric-variable>  I. 

IDF  r andomize-statement 
= > < 'RANDOMIZER  I. 


IDF  remark-statement 
s>  < ' REM  ' > 

s>  < • REM ' > <ISPACE>  <remark-string>  I. 


IDF  expression 

=>  <string-expression> 

= > <numeric-expression>  I. 


IDF  numeric-expression 
=>  <term> 

=>  <pos iti ve-expression> 
=>  <negation> 

=>  <sum> 

=>  <difference>  I. 


IDF  positive-expression 

= > < p 1 u s > <IGAP>  <term>  I. 


IDF  negation 

=>  <minus>  <IGAP>  <term>  I. 


syntax-1 1 


01/28/77 
SEMANOL  Project 


t 


Specification  of  BASIC 
Context  Free  Syntax  Section 


IfDF  sum 

=>  <numeric-expression>  <ffGAP>  <plus>  <#GAP>  <term>  If. 
0DF  difference 

=>  <numer ic-expression>  <#GAP>  <minus>  <#GAP>  <term>  f. 

#DF  term 

=>  <factor> 

=>  <product> 

=>  <quotient>  #. 

#DF  product 

= > <term>  <#GAP>  <asterisk>  <#GAP>  <factor>  If. 

0DF  quotient 

=>  <term>  <#GA P>  <slant>  <0GAP>  <factor>  If. 

0DF  factor 

s>  <primary> 

= > <involution>  If. 

If DF  involution 

= > <factor>  <lfG AP>  <circumflex>  <#GAP>  <primary>  If. 

If  DF  primary 

=>  <numer ic-var iable> 

=>  <numer ic-rep> 

=>  <numeric-function-ref > 

= > <open>  <AGAP>  <numer ic-expression>  <0GAP>  <close>  If. 
IfDF  numeric-function-ref 
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= > <numeric-defined-function-ref> 

= > Cnumer ic-suppl ied-funct ion-ref > A. 


rADF  numeric-def ined-funct ion-ref 

| 

=>  <numer ic-def ined-function> 

= > <numeric-def ined-function>  <AGAP>  <argument-list>  If. 


If  DF  numeric-supplied -function-ref 


= > 

CABS' > 

<AGAP> 

<argument-list> 

= > 

< ' ATN ' > 

< AGAP> 

<argument-list> 

= > 

< 'COS' > 

<lf  GAP> 

<argument-list> 

= > 

< 'EXP  ’ > 

<AGAP> 

<argument-list> 

= > 

< ' I NT ' > 

<lf  GAP> 

<argument-list> 

= > 
= > 

< ' LOG ' > 
< ' RMD  ' > 

<AGAP> 

<argument-list> 

= > 

< ' SGN  ' > 

< AG AP> 

<argument-list> 

r> 

< ' SI N ' > 

< A G A P > 

<argument-list> 

= > 

< ' SQR ' > 

< AG A P> 

<argument-list> 

= > 

< ’TAN  ' > 

<AG AP> 

<argument-list>  A 

ADF  argument-list 

= > <open>  <lf GAP>  <argument>  <AGAP>  <close>  if. 
If  DF  argument 

= > <numer ic-expression>  If. 


If  DF  string-expression 

=>  <string-variable> 

= > < str ing-constant>  If. 


if  DF  constant 

=>  <numer ic-constant> 

= > <str ing-constant>  * . 
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= > <plus> 

=>  <minus>  f. 

i 

#DF  nuraeric-rep 

i 

=>  <signiflcand>  <mLSET  #U  exrad>  If. 


#DF  significand 

= > <integer>  <ffNILSET  IfU  period> 

=>  <#NILSET  0U' lnteger>  <fraction>  If. 


If DF  integer 

=>  <%1<digit>>  #. 


0DF  fraction 

= > <per iod>  <%Kdigit>>  #. 


#DF  exrad 

= > <’E’>  <*NILSET  !f\i  sign>  <integer>  If. 


If  DF  string-constant 

= > <quoted-string>  If. 


If  DF  variable 

=>  <numer ic-variable> 

= > <string-variable>  If. 


L 
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JDF  numer ic-var iable 

=>  <3imple-numeric-variable> 

=>  <numer ic-ar r ay-element>  It. 

#DF  simple-numeric-variable 

=>  <letter>  <ffNILSET  #U  digit>  It. 

It DF  numeric-array-element 

= > <numeric-ar ray-name>  Ap>  <subscript>  it. 


*DF  numeric-array-name 
= > <letter>  It. 


It  DF  subscript 


=>  <open> 
=>  <open> 
<#GAP> 


<#GAP>  <numer ic-expression>  <#GAP>  <close> 
<#GAP>  <numeric-expression>  <#GAP>  <comma> 
<numer ic-expression>  <0GAP>  <close>  It. 


0DF  string-variable 

= > <letter>  <dollar>  ft. 


It  DF  letter 


=>  <’A,,’B,,,C,,,D','E,,,F,,,G,t,H','I 
It. 


lit  i v » * T » 

• " i ^ i L i 

1 V * , • W • , • X ' , • Y • 


•Z'> 


<TDF  digit 


= > < '0' , • 1 * , ’2’ 


'3*  , , '5'  , '6'  , '7' 


’8’ 


•9  * > It. 


flDF  string-character 
=>  <quote> 
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| 

I 

{ 

; 


I 


= > <quoted-str ing-char acter>  If. 


If DF  quoted-string-character 

=>  <ampersand> 
r>  <apostrophe> 

=>  <comma> 

=>  <exclamation-point> 

- > <unquoted-str ing-character>  If. 


#DF  unquoted-string-character 
=>  <space> 

= > <plain-string-character>  If. 


. 


*DF  plain-string-character 

=>  <letter> 

=>  <digit> 

=>  <asterisk> 

=>  <circumflex> 

= > <close> 
s>  <colon> 

=>  <dollar> 

=>  <equals> 

=>  <greater-than> 

=>  <less-than> 

= > <minus> 

=>  <number-3ign> 

=>  <open> 

=>  <percent> 

=>  <period> 

= > <plus> 

=>  <question-mark> 

=>  <semicolon> 

=>  <slant> 

=>  <underline>  #. 


#DF  remark-string 

=>  <t<str ing-character>>  f. 


#DF  quoted-str ing 
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=>  <quote>  <t <quoted-str ing-character>>  <quote>  A. 


ADF  unquoted-string 

= > <plain-string-character> 

=>  <plain-string-character> 

<%<unquoted-str ing-char acter>> 
<plain-str ing-character > 9. 


ADF  keyword 

= > < ' BASE ' , ’DATA' , 'DEF' , 'DIM' , 'END'  , 

'FOR' , 'GO'  , 'GOSUB' , 'GOTO'  , 'IF'  , 

’ INPUT' , 'LET' , 'NEXT' , 'ON'  , 'OPTION'  , 

'PRINT' , 'RANDOMIZE' , 'READ' , 'REM'  , 

'RESTORE' , 'RETURN' , 'STEP' , 'STOP' , 'SUB' , 'THEN' , 'TO'> 
9. 


ADF  space 

=>  <9 SPACE>  9. 


ADF  exclamation-point 
= > <’ ! ’>  9. 


ADF  quote 

= > <"">  9. 


9 DF  number-sign 
=>  <'«’>  9. 


9 DF  dollar 

=>  <'$’>  9. 


9 DF  percent 
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=>  <•%'>  I. 

#DF  ampersand 

= > < ' A * > #. 

IDF  apostrophe 

= > < ’ [ ' ] ’>  I. 


IDF  open 

=>  <•(•>  I. 

#DF  close 

=>  <•)’>  I. 

IDF  asterisk 

=>  <»•*>  I. 

IDF  plus 

=>  <’♦•>  I. 

IDF  comma 

=>  I. 

IDF  minus 

=>  <*-’>  I. 

IDF  period 

=>  <•.’>  I. 
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#DF  slant 

=>  <’/’>  If. 

0DF  colon 

= > <• : •>  If. 

0DF  semicolon 

=>  <• ; •>  #. 

ffDF  less-than 

=>  <•<•>  #. 

If DF  equals 

= > <’  = •>  If. 

If  DF  greater-than 
= > <•>•>  If. 

ffDF  question-mark 
= > <•?•>  If. 

If  DF  circumflex 

= > <’*•>  If. 

if  DF  underline 

= > If. 

*PF  input-prompt 
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=>  <•?  ’>  9. 

#DF  input-reply 

=>  <data-list>  <#GAP>  <end-of-input-reply>  9. 

9 DF  end-of-input-reply 
= > < ' [ LF ] ’ > 9. 
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^CONTROL-COMMANDS: 

^ASSIGN-VALUE ! basic-program  = ACONTEXT-FREE-PARSE-TREE 
(AGIVEN-PROGRAM,  "wrt"  <program>  ) 

AIF  ( $basic-program$ ) is-context-free-syntactically-valld 
ATHEN 

AIF  (Sbasic-programS)  is-contextually-syntactically-valid 
ATHEN 

ABEGIN 

ACOMPUTE!  initial! ze-globals 

ASSIGN-VALUE  ! current-statement  = #FIR ST -ELEMENT-IN 
sequence-of -executable- stat emen ts-in ( basic-program) 

AWHILE  ( $cur rent-statementS ) is-not-stop-or-end  ADO 

ABEGIN 

ACOMPUTE ! effect -of (current-statement) 

AASSIGN-VALUE ! current-statement  = 
statement-successor-of ( cur  rent- statement ) 

aend 

AIF  current-print-line  ANEQV  ANIL 

ATHEN  ACOMPUTE!  print(end-of-print-line-char ) 

AEND 


ACOMPUTE!  ASTOP  A. 
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#SEM ANTIC-DEFINITIONS : 

#DF  is-context-free-3yntactically-val id (prog) 

"{prog  #EQ  basic-program)" 

=>  0TRUE  tIF  prog  JIS-NOT  ^UNDEFINED  ; 

= > 

f alse-due-to-error ( ' con text-free-syn tax-error- in-program- text ' ) 
{(OTHERWISE  A. 

#PR0C-DF  false-due-to-error(msg) 

"{msg  0IS  ((STRING)" 

#BEG IN 

^COMPUTE!  fatal-syntactic-error ( 'error:  ' IfCW  m3g) 

^RETURN -WITH -VALUE!  fFALSE 
#END  #. 


#DF  fatal-syntactic-error (msg) 

"(msg  #IS  0STRING}" 

= > #0UTPUT(msg  #CW  end-of-pr lnt-line-char ) If. 


#DF  is-contextually-syn tactically- valid (prog) 

"{prog  If E0  basic-program } " 

=>  KTRUE  fIFF  al 1-line-nrs-are-non-zero-in ( prog)  RAND 
lines-are-in-ascending-1 ine-nr-order-in(prog)  #AND 
lin es- a re-uni quely-numbered-in( prog ) 0AND 
a 11- line-number s- ex ist-in( prog)  #AND 
al 1-fors-have-matching-nexts-in ( prog)  AAND 
all-next s-have-match ing-fors-in( prog)  flAND 
f or s-and -next s- are- proper ly-matched-in ( prog)  flAND 
arrays-are-uniquely-dimensioned-in( prog)  A AND 
arrays-are-defined-first-in(prog)  {(AND 
consistent-number-of -subscripts-in( prog ) {(AND 
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n o-d i me n s ion-option -con flict( prog)  A AND 
option-statement-is-f irst-in( prog)  AAND 
functions-are-uniquely-defined-in(prog)  AAND 
all- functions-are-defined-in( prog)  AAND 
n o- recur s i ve-fu net ions-in( prog)  AAND 
functions-are-defined-first-in(prog)  AAND 
consistent-number-of-arguments-in(prog)  A . 


ADF  all-line-nrs-are-non-zero-in(prog) 

"{prog  AEQ  basic-program}" 

= > //TRUE  AIF  AFOR-ALL  line-nr  AIN 

sequence-of-line-ids-in(prog)  #IT-IS-TRUE-TH AT 
(line-number-value-of (line-nr)  AN  = 0)  ; 

=>  false-due- to-error( 'zero-valued-line-n umber' ) 
^OTHERWISE  A. 


ADF  lines-are-in-ascending-line-nr-order-in(prog) 

"{prog  #EQ  basic-program}" 

= > ATRUE  A IF  AFOR-ALL  line-nr  AIN 
al 1-but- last- element- in 

( seq ue nce-of -line- id s-in( prog) ) ATT-IS-TRUE-TH AT 
( line-number-value-of ( 1 ine-nr)  < 

line-number-value-of ( line-nr-next-following(line-nr))) 
J 

=>  f alse-due-to-er ror ( ' 1 ines-out-of-order ' ) AOTHERWISE 
A. 


ADF  all-but-last-element-in(list) 

"{list  AIS  ASEQUENCE}" 

=>  AINITI AL-SUBSEQ-OF-LENGTH ( A LENGTH (list)  - 1)  AOF 
list  A. 


ADF  line-nr-next-following(line-nr) 
"{line-nr  AIS  <line-id>}" 
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s>  #FI RST  In  #IN 

sequence-of-line- id s-in( root-node ( line-nr) ) 
#SUCH-THAT  (line-nr  .PRECEDES  In  #IN 
sequence-of-line- ids- in ( root -node (line-nr) ) ) 9 . 


#DF  lines-ar e-uniquely-n umber ed-in( prog) 

"{prog  9 EQ  basic-program}" 

=>  ITRUE  # IF  #F0R-ALL  lnl  #IN 

sequence-of-line- ids- in (prog)  #IT-IS-TRUE-THAT 
(#F0R-ALL  ln2  #IN  sequence-of-1 ine-ids-in ( prog ) 

♦ IT-IS-TRUE-THAT  ( 1 i ne-number-value-of ( In  1 ) s 
line-number-value-of ( ln2)  ^IMPLIES  lnl  #EQ  ln2))  ; 

=>  false-due-to-error( • dupl icate-1 ine-numbers ' ) 
I0THERWISE  9. 


9 DF  all-line-numbers-exist-in( prog) 

"{prog  #EQ  basic-program}" 

s>  #TRUE  #IF  #N0T  #THERE-EXISTS  stmt  #IN 

sequence-of-executabl e-statements- in ( prog) 

# SUCH -THAT  (nonexistent-line-is-referenced-by(stmt)) 

f 

s>  f alse-due-to-error ( ' nonexistent-1 ine-number ' ) 
^OTHERWISE  9. 


9 DF  nonexistent-line-is-referenced-by ( stmt) 

"{($stmt$)  is-basic-statement} " 

= > nonexistent-line-is-referenced-by-on-goto(  stmt)  #IF 
stmt  #IS  <on-goto-statement>  ; 

= > 

nonexistent-line-is-referenced-by-other-control(stmt) 
9 IF  stmt  0IS  <goto-statement>  *0  <gosub-statement> 

9 U <if-then-statement>  ; 


= > 9 FALSE  ^OTHERWISE  9. 
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ADF  nonexistent-line-is-referenced-by-on-goto(stmt) 

"{stmt  ATS  <on-goto-statement> } " 

= > ATRUE  AIFF  ATHERE-EXISTS  lnl  AIN 

destination-line-number- list- in (stmt)  ASDCH-THAT 
(AFOR-ALL  ln2  AIN  sequence-of-line-ids-in 
(root-node(stmt)  ) AIT-IS -TRUE -THAT 
( line-number-value-of ( In  1 ) AN  = 

1 ine-number-value-of ( ln2 ) ) ) A. 


#DF  nonex i stent- line-is-referenced -by -other-control (stmt) 

"{stmt  A IS  <goto-statement>  AU  <gosub-statement>  AU 
<if-then-statement>}" 

= > ATRUE  HUFF  AFOR-ALL  line-nr  /HIM 

sequence-of-line-ids-in (root-node( stmt)) 
AIT-IS-TRUE-THAT  ( 1 i ne-number- value-of ( 1 ine-nr ) AN  = 
line-number-value-of ( destination-1 ine-number-of ( stmt) ) ) 
#. 


ADF  all-fors-have-matching-nexts-in(prog) 

"{prog  AEQ  basic-program}" 

= > ATRUE  #IF  AFOR-ALL  for-stmt  AIN 

sequence-of-for-statements-in(prog)  AIT-IS-TRUE-THAT 
(ATHERE-EXISTS  next-stmt  AIN 

sequence-of-next-statements-in(prog)  ASUCH-THAT 
(($for-stmt,  "and"  next-stmt$)  match  AAND  AFOR-ALL 
other- for-stmt  #IN 

sequence-of-for-statements-in(prog)  AIT-IS-T RUE -THAT 
( ($other-for-stmt , "and"  next-stmt$)  match  ATMPLIES 
for-stmt  ADOES-NOT-PRECEDE  other- for-stmt  *IN 
sequence-of-executable-statements-in(prog))))  ; 

= > 

false-due-to-error( 'for-statement-has -no -matching -next' ) 
^OTHERWISE  ft. 


ft DF  match ( for-stmt , "and"  next-stmt) 

"{for-3tmt  *IS  < for-statement > AAND  next-stmt  ATS 
<next-statement>}" 
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=>  /(TRUE  AIFF 

//STRING -OF -TERMINALS-OF (control-variable-in 
( for-stmt ) ) /»EQW 

/PSTRING-OF-TERMINALS-OF(  control-variable-in 
(next-stmt))  #AND  for-stmt  //PRECEDES  next-stmt  4IN 
sequence-of-executable-statements-in( root-node ( for-stmt) ) 
If. 


*DF  all-nexts-have-matching-fors-in(prog) 

"{prog  If E0  basic-program}" 

= > //TRUE  If  IF  /PFOR-ALL  next-stmt  *IN 

sequence-of-next-statements-in(prog) 
tfIT-IS-TRUE-THAT  ( 0THERE-EX ISTS  for-stmt  #IN 
sequence-of -for-statements-in ( prog)  flSUCH-THAT 
(($for-stmt,  "and"  next-stmt$)  match  /(AND  /(FOP-ALL 
other-next-stmt  JIN 

sequence-of-nex t- statement s- in ( pro g ) 

0 IT- IS -TRUE -THAT  (Ufor-stmt,  "and" 
other-next-stmt$ ) match  /(IMPLIES  other-next-stmt 
/PDOES-NOT-PRECEDE  next-stmt  (PIN 
sequence-of -ex ecu tab 1 e-statements- in ( prog) ) ) ) ; 

= > 

false-due-to-error ( ' next-statement-has-no-matching-for ’ ) 
^OTHERWISE  If. 


If DF  fors-and-nexts-are-properlv-matched-in(prog) 

"{prog  0EQ  basic-program}" 

= > /(FALSE  #IF  /(NOT 

all-fors-have-matching-next3-in( prog)  ; 

= > /(TRUE  /(IF  /PFOR-ALL  stmtl  (PIN 

sequence-of- for-statements-in  (prog) 

/PIT-IS-TRUE-THAT  ( <P F0 R- ALL  stmt2  AIN 
sequence-of -for-statements-in  (prog)  /(TT-IS-TRUE-TH  AT 
( ( $stmt2 , "in"  stmtl*)  is-nested  ^IMPLIES 
( Smatch ing-nex t ( stmt2) , "in"  stmt1$)  is-nested))  ; 

= > false- due- to-error(' improperly-nested- for-Mocks*) 
//OTHERWISE 
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#DF  i s-nested ( stmt2 , "in”  stmtl) 

"{stmtl  0IS  < for-statement>  JAND  stmt2  IflS 
< for-statement> } " 

=>  #TRUE  # IFF  stmtl  ^PRECEDES  stmt2  #IN 

sequence-of- exec u tab ie-statements-in( root-nod e(stmt2)) 
flA’JP  stmt2  ^PRECEDES  match ing-next ( stmt  1 ) ffIN 
sequence-of-execu table-statements- in ( root-node(stmt2)) 
If. 


If  DF  arrays-are-uniquely-dimensioned-in(prog) 

"{prog  If E0  basic-program}" 

= > 0TRUE  DIF  i*F0R-ALL  array-decl-1  *IN 

sequence-of-ar ray-dec lar at  ions- in ( prog) 

0IT-IS-TRUE-THAT  (#F0R-ALL  array-decl-2  #IN 
sequence-of-array-declarat ions- in (prog) 

0IT-IS-TRUE-THAT 

( JSTRING-OF-TERMI NALS-OF ( numer i c-ar r ay-name-of ( array-decl-1)) 
If  EOW 

#ST RING -OF -TERM INALS -OF ( numer i c-ar ray-name-of  ( array-decl-2) ) 
^IMPLIES  array-decl-1  HF.Q  array-decl-2))  ; 

= > false-due- to -error (’multi pi y-defined-array’) 

^OTHERWISE  if. 


0DF  arrays-are-defined-first-in(prog) 

"{prog  If EQ  basic-program}" 

= > #TRUE  iflF  0FOR-ALL  array-decl  4IN 

sequence-of-ar ray-dec lar at  ions- in (prog) 

0IT-IS-TRUE-THAT  UFOP-ALL  array-ref  4 IN 
sequence-of-array-references-in(prog) 

# IT- IS -TRUE -THAT 

( If  STRI NG-0F-TERMIN  ALS-OF  (numeric-array-name-of(  array-decl)) 
#E0'V 

If  ST  RING -OF-TERMINALS -OF  (numeric-array-name-of(  array-ref)) 

0 IMPLIES  line-containing(array-decl)  *PRECEPrS 
line-containing(arrav-ref)  I N 
sequence-of-lines-in( prog)  ) ) ; 
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false-due-to-error ( ' arr ay-ref erenced-bef ore-declaration ' ) 
^OTHERWISE  0. 


ODF  consistent-number-of-subscripts-in(prog) 

"{prog  OEQ  basic-program}" 

=>  OTRUE  OIF  OFOR-ALL  array-1  OIN 

sequence-of-array-declarations-and-references-in(prog) 
OIT-IS-TRUE-THAT  (OFOR-ALL  array-2  OIN 
sequence-of-array- declarations- and-references-in( prog) 

0 IT-IS-TRUE-THAT 

(OSTRING-OF-TERMINALS-OF ( numer ic-array-name-of ( array-1)) 
OEQW 

OSTRING-OF-TERMINALS-OF ( numer ic-arr ay-name-of ( array-2)) 
OIMPLIES  number-of-dimensions-in(array-1 ) OEQ 
number-of-dimensions-in ( array -2)))  ; 

s>  f alse-due-to-error ( ' array-subscr ipt-inconsistency ' ) 
OOTHERWISE  0. 


ODF  number-of -d i mens i on s-in( node) 

"{node  OIS  <numer ic-arr ay-element>  OU 
<array-declaration>}" 

=>  number-of-subscripts-in(node)  OIF  node  OIS 
<numer ie-array-element>  ; 

=>  number-of-bounds-ln(node)  OIF  node  OIS 
<array-declaration>  0. 


ODF  number-of-subscripts-in( node) 

"{node  OIS  <numer ic-array-element> } " 

=>  1 OIF  subscr ipt-part-of (node ) OIS  OCASE  1 OOF 
<subscript>  ; 

=>  2 OIF  subscript-part-of (node)  OIS  OCASE  2 OOF 
<subscript>  0. 


ODF  number-of-bounds-in ( node) 
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"{node  OIS  <array-declaration>}" 

=>  1 OIF  bounds-part-of(node)  OIS  OCASE  1 OOF  <bounds> 


=>  2 OIF  bounds-part-of ( node ) OIS  OCASE  2 OOF  <bounds> 

0. 


ODF 


no- dime ns  ion-option -conflict (prog) 
"{prog  OEO  basic-program}" 


=>  OTRUE  OIF  0FOR-ALL  stmt  OIM 

sequence-of-option-statements-in(prog) 

OIT-IS-TRUE-THAT  (option-base-of (stmt)  = 1 OIMPLIES 
OMOT  OTHERF-EXISTS  array-decl  OIN 

sequence-of-array-declarat ions- in (prog)  0 SUCH -THAT 
( ($bounds-part-of(array-decl)$) 
has-a-zero-upper-bound ) ) ; 

=>  false-due-to-error('dimension-option-conflict*) 

OOTHERWISE  0.  . 1 


ODF  has-a-zero-upper-bound ( b) 

" { b OIS  <bounds>  } " 

= > OTRIJE  0IFF  OSTRING-OF-TERMTNALS-OF 

(f i rst-d imens ion-bound-of (b) ) OEQ  0 OIF  ($b$) 
ha3-one-dimension  ; 

= > OTRUE  0 IFF  OSTRING-OF-TERMTMALS-OF 

( f irst-dimension-bound-of ( b ) ) OFO  0 OOR 
OSTRING-OF-TERMTNALS-OF 

( second-dimension-bound-of (b ) ) OEO  0 OIF  ($b$) 
has-two-dimensions  0. 


ODF  option-statement-is-f irst-in( prog) 

"{prog  OEO  basic-program}" 

=>  OTRUE  OIF  OFOR-ALL  stmt  OIN 

sequence-of-option-statements-in(Drog) 

OIT-IS-TRUE-THAT  (O^OR-ALL  array-ref  OIN 
sequence-of-ar ray-dec lar at  ion s-and-references- in (prog) 


cs-29 


Specification  of  BASIC 
Semantic  Definitions 


01/28/77 
SE^ANOL  Project 
Context  Sensitive 


>fIT-IS -TRUE- THAT  ( 1 i ne-conta  in  ins;  ( stmt ) I PRECEDES 
line-containing(array-ref ) *IN 
sequence-of-1 ines-in ( prog) ) ) ; 


f al s e-due- to-err or ( 'opt  ion-statement- follows-array-reference' 
fOTHERWISE  f. 


IDF  functi on s-are- unique ly-defined-in( prog) 

"{prog  IEQ  basic-program}" 

=>  ITRUE  IIF  IFOR-ALL  stmtl  IIN 

sequence-of-def-statements-in ( prog)  IIT-IS-TRUE-THAT 
(/IFOR-ALL  stmt2  IIN 

sequence-of-def-statements-in ( prog)  IIT-TS-TRUE-THAT 
(# STRING -0F-TERM IN ALS-OF ( def -statemen t-name-of ( stmtl ) ) 
IEQW 

ISTRI NG-OF-TERMINALS-OF ( def-st a temen t-name-of  ( stmt?) ) 
IIMPLIES  stmtl  #E0  stmt2))  ; 

=>  f alse-due-to-error ( 'multi ply-defined -function') 
^OTHERWISE  I. 


IDF  all-functions-are-defined-in(prog) 

"{prog  IEQ  basic-program}" 

=>  ITRUE  IIF  IFOR-ALL  fn  IIN 

sequence-of-defined-function-references-in(prog) 

# IT-IS-TRUE-THAT 

(numer ic-de fined- function-name-of ( fn)  ITS 
<numer ic-de fined- function > IIMPLIES  ITHERE-E7 ISTS 
stmt  IIN  sequence-of-def-statements-in( prog) 
ISUCH-THAT  (ISTRI NG-OF-TERMINALS-OF 
( def -statement-name-of( stmt))  IEQW 
ISTRI NG-OF-TERM IN  ALS-OF 

( nume r ic-de f ined-function-name-of ( fn) ) ) ) ; 

= > f alse-due-to-error ( 'missing- functi on-definition' ) 
(^OTHERWISE  «. 


IDF  no-recur si ve- functi on s-ln( prog) 
"{prog  IEQ  basic-program}" 


cs-30 


Specification  of  BASIC 
Semantic  Definitions 


01/28/77 
SEMANOL  Project 
Context  Sensitive 


=>  OTRUE  OIF  OFOR-ALL  stmt  OIN 

sequence-of-def-statements-in(prog)  OIT-IS-TRUE-THAT 
(OFOR-ALL  fn  OIN 

sequence-of-defined-funct ion-ref erences-in( prog) 

# IT-IS-TRUE-TH AT  ( 1 i ne-con tain ing ( f n ) OEQ 
line-containing! stmt)  OIMPLIES 
OSTRING-O^-TERMINALS-OF 

(numeric-defined-function-name-of(fn))  ONFQV 
#STRING-OF-TERMINALS-OF 
(def-statement-name-of(stmt))))  ; 

=>  false-due-to-error( 'recursive-function-definition' ) 
OOTHERWISE  0. 


ODF  function s-are-defin'-d-first-in! prog) 

"{prog  OEQ  basic-program}" 

=>  OTRUE  OIF  OFOR-ALL  stmt  OIN 

sequence-of -de f- statements- in ( prog ) OIT-IS-TRUE-THAT 
(OFOR-ALL  fn  OIN 

sequence-of-def ined-funct i on-references- in ( prog) 
OIT-IS-TRUE-THAT  (OSTRING-OF-TERMTNALS-OF 
(numeric-defined-functlon-name-of(fn))  OEQW 
OSTRING-OF-TERMINALS-OF 
(def-statement-name-of(stmt) ) 0 IMPLIES 
line-containing! fn)  ODOES-NOT-PRECEDE 
1 ine-containing! stmt ) OIN 
sequence-of-lines-in(prog) ) ) ; 

= > 

false- due-to-error(' function-referenced- be fore-definition') 
OOTHERWISE  0. 


#DF  consistent-number-of-arguments-in(prog) 

"{prog  OEQ  basic-program}" 

=>  OTRUE  OIF  OFOR-ALL  stmt  OIN 

sequence-of-def-statements-in(prog)  OIT-IS-TRUE-THAT 
(all-function-references-agree-with(stmt))  ; 

= > 

false-due-to-error('inconsistent-number-of -arguments') 
OOTHERWISE  0. 
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ADF  a 1 1- function-ref erences-agree-with( stmt ) 

"{stmt  AIS  <def-statement> } " 

= > ($stmt$)  references-have-no-arguments  #IF  stmt  AIS 
ACASE  1 AOF  <def-statement>  ; 

= > ($stmt$)  references-have-one-argument  AIF  stmt  ^ IS 
9C ASE  2 AOF  <def-statement>  9 . 


9 DF  references-have-no-arguments (stmt) 

"{stmt  AIS  #C ASE  1 AOF  <def-statement> } " 

=>  ATRUE  AIFF  AFOR-ALL  fn  AIN 

s equence-of -defined -function -ref  erences-in(root-node( stmt)) 
#IT-IS-TRUE-THAT  ( ASTRING-OF-TERMINALS-OF 
( numer ic-de fined- function-name-of ( fn ) ) 9 EQV 
AST RING -OF -TERMINALS-OF 

( def-statement-name-of ( stmt ) ) AIMPLIES  fn  AIS  AC ASE 
1 AOF  <numer ic-def ined-function-ref > ) 9. 


9 DF  references-have-one-argument (stmt) 

"{stmt  AIS  ACASE  2 9 OF  <def-statement> ) " 

= > ATRUE  A IFF  AFOR-ALL  fn  AIN 

s equence-of -def ined-function-ref erences-in( root-node ( stmt) ) 
A IT-IS-TRUE-THAT  (ASTRING-OF-TERMINALS-OF 
( numeric-defined- function -name-of ( fn) ) AEQW 
ASTRI NG-OF -TERMItl  ALS-OF 

( def-statement-name-of ( stmt ) ) AIMPLIES  fn  AIS  AC ASE 
2 AOF  <numeric-def ined-function-ref > ) 9. 


^ DF  sequence-of-1 ines-in ( prog ) 

"{prog  AEQ  basic-program}" 

=>  ASEQUENCE-OF  <line>  AIN  prog  9. 


ADF  sequence-of- line- ids- in (prog) 
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"{prog  ItEQ  basic-program}" 

= > #SEQUENCE-OF  <line-id>  AIN  prog  it. 

ADF  sequence-of -for-statements-in( prog) 

"{prog  #EQ  basic-program}" 

= > ASEQUENCE-OF  < for-statement>  AIN  prog  It. 

It DF  sequence-of -n ex t- statements- in ( prog) 

"{prog  It EQ  basic-program}" 

= > ASEQUENCE-OF  <next-statement>  AIN  prog  It. 

It  DF  sequence-of-array-declarations-in(prog) 

"{prog  It  EQ  basic-program}" 

= > ASEOUENCE-OF  <array-declaration>  AIN  prog  It. 

It  DF  sequence-of-array-references-in(prog) 

"{prog  AEQ  basic-program}" 

= > ASEQUENCE-OF  <numer ic-arr ay-element>  AIM  prog  It. 

It  DF  sequence-of-array-declarations-and-references-in(prog) 
"{prog  It  EQ  basic-program } " 

= > sequence-of-array-declarations-in(  prog)  ItC S 
sequence-of-array-references-in(prog)  It . 

ADF  sequence-of -opt ion-statements-in(  prog) 

"{prog  It  EQ  basic-program}" 

= > ASEQUENCE-OF  <option-statement>  AIM  prog  It. 
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0DF  sequence-of-def-statements-in(prog) 

"{prog  ffEQ  basic-program}" 

=>  #SEQUENCE-OF  <def-statement>  #IM  prog  If. 

0DF  sequence-of-def ined-f jnct ion-ref erences-in(prog) 

"{prog  flEQ  basic-program}" 

=>  0SEQUENCE-OF  <numer ic-def ined-funct ion-ref > PIN  prog 

If. 
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APROC-DF  initi al ize-globals 
ABEGIN 

A ASSIGN-VALUE ! data-list-pointer  = 1 
AASSIGN-VALUE!  return-point-list  = AMILSEQ 
AASSIGN-VALUE ’ active-for-block-1 i st  = #MILSEQ 
//ASSIGN-VALUE!  current-print-line  = AM IL 
AASSIGN-VALUE ! first-time-through  = ATRUE 
AASSIGN-VALUE!  initial-input-state  = ATRIJE 
A RETURM -WITH- VALUE ! ANIL 
AEND  ». 

ADF  i s-not-stop-or-end ( stmt ) 

"{stmt  AEQ  current-statement } " 

= > ATRUE  AIFF  ANOT  stmt  AIS  <stop-statement>  All 
<end-statement>  A. 

ADF  ef fee t-of( stmt ) 

"{stmt  aeq  current-statement)" 

=>  ANIL  AIF  ($stmt$)is-non-executable  AOR 
($stmt$)is-simple-control-statement  ; 

=>  for-statement-ef fect( stmt)  AIF  stmt  AIS 
<for-statement>  ; 

= > gosub-statement-ef fect( stmt)  AIF  stmt  AIS 
<gosub-statement>  ; 

=>  input-statement-ef feet ( stmt ) AIF  stmt  ATS 
<input-statement>  ; 

=>  numeric-let-statement-ef fect(stmt)  *TF  stmt  AIS 
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Cnumer ic-let-statement>  ; 

=>  string-let-statement-ef feet ( stmt)  ♦ IF  stmt  <IS 
<string-let-statement>  ; 

=>  next-statement-ef feet ( stmt ) ♦ IF  stmt  ♦ IS 
<next-statement>  ; 

= > pr int-statement-ef feet ( stmt ) ♦ IF  stmt  ^IS 
<pr int-statement>  ; 

=>  read-statement-ef feet ( stmt ) ♦ IF  stmt  ♦IS 
<read-statement>  ; 

=>  restore-statement-effect  ♦ IF  stmt  ^IS 
<restore-statement>  ♦ . 

♦ DF  for-statement-ef feet ( stmt ) 

"{stmt  ♦ IS  <for-statement>  }" 

=>  reset-first-time-through  ♦ IF  #N0T  f ir st-time-through 
J 

=>  activate-for-block( stmt)  ♦OTHERWISE  ♦ . 

♦PROC-DF  reset- first-time-through 
♦BEGIN 

♦ASSIGN-VALUE!  first-time-through  = ♦TRUE 
♦RETURN-WITH-VALUE!  ♦NIL 
♦END  ♦. 

♦PROC-DF  activate- for-block(stmt) 

"{stmt  ♦IS  <for-statement>  }" 

♦BEGIN 

"deactivate  any  for  block  with  the  same  control 
variable" 
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0IF  tfTHERE-EXISTS  x £IN  active-for-block-list 
#SUCH-THAT  (control-variable-is-active( x , "in"  stmt)) 
0THEN  ASSIGN-VALUE ! active-for-block-list  = 
new-active-for-block-list(stmt) 

"check  for  maximum  number  of  active  for  blocks" 

0IF  #LENGTH ( active-for-block-list ) >= 

max-number-of-for-blocks 

IHTHEN 

^COMPUTE! 

fatal-error( ' too-many-for-blocks-acti ve-at-one-time ' ) 

"activate  the  current  for  block" 

^ASSIGN-VALUE ! active-for-block-list  = 
\for-block-list-element(stmt)\  0CS 
active-for-block-list 

"initialize  the  control  variable" 

^COMPUTE!  # ASSIGN-LATEST- VALUE 

( standard-name-of (control-variable-in (stmt ) ) ."receives" 
initial-value- in- for (stmt) ) 

^RETURN -WITH -VALUE!  #NIL 

#EMD  If. 


If DF  initial-value-in-for  ( stmt) 

"{stmt  flIS  < for-statement>  }" 

= > numeric-value(  initial-value-part-of-for  ( stmt) ) If. 


If  DF  value-of-limit-in-for(stmt) 

"(stmt  *IS  < for-statement>  }" 

=>  numeric-value( limit-part-of-for (stmt) ) A. 


ffDF  value-of-increment-in-for(stmt) 
"{stmt  If  IS  < for-statement>  }" 
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= > numeric-value(increment-part-of-for(stmt)  ) If  IF  stmt 
AIS  IfC ASE  2 AOF  <for-statement>  ; 

= > implementation-one  AOTHFRWISE  If. 
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#DF  new-active-for-block-list( stmt) 

"{stmt  AIS  <for-statement>  }" 

=>  f irst-par t-of ( act ive-for-block-1 i st , "up  to" 
active-control-variable(stmt))  If CS 
sec on d-part-of( active- for-block -list, "after" 
active-control-variable(stmt)  ) If . 


ADF  active-control-variable(stmt) 

"{stmt  IflS  <for-statement>  AU  <next-statement>  }" 

=>  AFIRST  x AIM  acti ve-f or-block-1 i st  #SUCH-THAT 
( control-variable-is-active( x ,"in"  stmt))  #. 


ADF  control-var iable-is-act i ve ( x , " in"  stmt) 

"{x  AIS  for-block-list-element 

A stmt  AIS  < for-statement>  AU  <next-statement>  }" 

=>  ATRUE  AIFF  standard-name-of ( AFIRST-ELEVENT-IN  x)  AEO 
stand ard-name-of( control-variable- in (stmt))  A. 


ADF  first-part-of ( list , "up  to  for-block-list-element"  x) 

"{list  AEQ  active-for-block-list 
A x A IS  for-block-list-element}" 


A INITI AL-SUnSEQ-OF-LENGTH( posit ion-of-control-var i able (x ) 
- 1)  AOF  list  if. 


ADF  second-par t-of ( 1 i st , "after  for-block-list-element"  x) 

"{list  AEQ  active-for-block-list 
4 x A IS  for-block-1 ist-el emen t } " 
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=>  0TERMIN AL-SUBSEQ-OF-LENGTH (# LENGTH (list)  - 
position-of-control-var  iable  ( x ) ) IfOF  list  If. 


If DF  position-of-control-variable(x) 

"{x  I S for-block-list-element) " 

= > #0RDP0SIT  x If  Vi  active-for-block-list  If. 


If  DF  for-block-list-element(stmt) 

"{stmt  *IS  <for-statement>  }" 

= > \control-var iable-in( stmt)  , 
value-of-limit-in-for ( stmt) , 
value-of -increment- in-for  ( stmt ) \ if . 


If  DF  gosub-statement-ef fect( stmt) 

"{stmt  #IS  <gosub-statement>  }" 

= > 

set- latest-return- point-to( s imple-statement-successor-of ( stmt) ) 

#. 


PROC-DF  se t- 1 ates t- return- point-to( stmt) 

"{  ($stmt$)  is-basic-statement } " 

0BEGIN 

0IF  ^LENGTH ( return-point-list ) >= 
max-number-of-unreturned-gosubs 
UTHEN  ^COMPUTE ! 

fatal-error( ' too-many-unreturned-gosub-executions ' ) 
"otherwise  ..." 

^ASSIGN-VALUE!  return-point-list  = \stmt\  IfCS 
return- point-list 

ARETURN-WTTH-VALUF!  ANIL 
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9 END  9. 

APROC-DF  i nput-s tat ement-ef feet ( stmt) 

"{stmt  AIS  <input-statement>  }” 

ABEG IN 

#C0MPUTE ! 9 OUT PUT (input- prompt-character) 

//ASSIGN-VALUE!  input-line  s 
in put-reply-tree (next-input-line) 

^COMPUTE!  val Ida te-input-data- for (stmt) 

ARETURN -WITH -VALUE!  ANIL 

AEND  A. 

ADF  input-prompt-character 

" { AON-RETURN : input-prompt-character  A* I S <input-prompt> 
)" 

=>  »?  ' 9. 

9 DF  input-reply-tree(i-f-t) 

"{i-f-t  9 EQ  input-from-terminal } " 

=>  0 CO NTEXT-FREE-PARSE-T REE (i-f-t,"wrt"  <i nput-repl y> ) 
9. 

APROC-DF  next-input-line 
ABEGIN 

9 IF  initial-input-state  //THEN 
ACOMPUTE!  read-input-file 

A ASSIGN- V ALUE ! input-from-terminal  = ( ApREFTX-OF-FIRST 
end-of-input-reply-char  AIN  input-file)  9C W 
end-of-i nput-repl y-char 
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#COMPUTE ! //OUTPUT  ( i n pu t- from- t er mi na 1 ) 

^ASSIGN-VALUE  1 input-file  = #SUFFIX-OF-FIRST 
end-of-input-reply-char  #IN  input-file 

/I RETURN -WITH -VALUE  ! input-from- terminal 

//END  If . 

0PROC-DF  r pad-input-file 
//BEGIN 

//ASSIGN-VALUE!  input-file  = //INPUT 
//ASSIGN-VALUE!  initial-input-state  = #F  ALSE 
/ZRETURN-WITH-VALUE!  //NIL 
If  END  If. 

If DF  end-of-input-reply-char 

"{/ION-RETURN:  end-of-input-reply-char  ffi’S 
<end-of-input-reply>}" 

= > ' [LP  1 * If. 

If  DF  validate-input-data-for(stmt) 

"{stmt  /<IS  < input-statement>  } " 

=>  input-new-data-for ( stmt ) *IF  ($stmt$) 
is-invalid-input-reply  ; 

= > assign-input-values(stmt)  //OTHERWISE  If. 

If  P ROC  -DF  assign-input-values(stmt) 

"{stmt  />IS  <input-statement>  }" 

//BEGIN 
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AFOR-ALL  i : 1 <=  i <= 

ALENGTH(list-of-variables-to-be-input-ln(stmt) ) ADO 
ABEGIN 

ACOMPUTE!  A ASSIGN-LATE ST- VALUE  ( stand ard-name-of 
( list -element ( i , "in" 

list-of-variables-to-be-input-in(stmt) ) > , 
"receives"  value-of-datum  (list-element(i , "in" 
input-data-list-in(input-line)),  "wrt" 
list-element( i , "in" 

list -of-variables-to-be-input-in( stmt)))) 

AEND 

A RETURN-WITH-VALUE!  ANIL 
AEND  if. 


ADF  list-of -variables- to -be-in put-in( stmt) 

"(stmt  AIS  <input-statement>  AU  <read-statement>  }" 

=>  ASEQUENCE-OF  <variable>  AIN  stmt  A. 

ADF  list-element(number , "in"  list) 

"{number  AIS  AINTEGER  4 
list  AIS  ASEQUENCE}" 

=>  number  A TH -ELEMENT- IN  list  A. 

ADF  value-of-datum(d , "wrt"  var) 

"{d  AIS  <datum>  4 var  AIS  <variable>  }" 

=>  remove-quotes-from  ( ASTRING-OF-TERMTNALS-OF (d ) ) AIF 
($d$)  i s-quoted-string  ; 

=>  numeric-represen tat ion-or-zero 

(ASTRING-OF-TERMINALS-OF(d) ) AIF  ($vart) 
is-numeric- variable; 

=>  ASTRING-OF-TERMINALS-OF ( d ) AOTHERWTSE  A. 
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ADF  numeric-representation-or-zero(str) 

"{str  IIS  A STR  I MG } " 

=>  nuner ic-constant-underf low-ef feet  AIF  (SstrS) 
results- in-numeric-conversion-underflow  ; 

s > implement  at ion-numer ic- re presen tat  ion (str ) 
OTHERWISE  A. 


ADF  input-dat a-1 i st-in ( 1 n ) 

"{In  AEO  input-line}" 

=>  ASEQUENCE-OF  <datum>  AIN  In  f. 


#DF  is-invalid-input-reply(stmt) 

"(stmt  #IS  < input-statement>  }" 

= > inval id- input-repl y ( * unrecogni zable-input-repl y ' ) 

# IF  input-line  AIS  lUNDE^INED  ; 

=>  invalid-input-reply 

( ' incorrect-number-of-data-items ' ) AIF  ANOT 
ex ac tl y-enough-data ( "wrt"  stmt)  ; 

= > invalid-input-reply 

( ' cbaracter-datum-for-numer ic-var i able ' ) AIF  ANOT 
input-data-types-match( "wrt"  stmt)  ; 

=>  AMOT  al l-data-is-in-range( "wrt"  stmt)  AOTHERWISE  A. 


ADF  inval id-input-reply (msg ) 

" {msg  A IS  ASTRINC}" 

= > ATRUE  AIF  non-fatal-error (msg  ACW 
' ; please-reenter-data  ' ) A£QV  ANIL  A. 


ADF  exactl y-enough-data( "wrt"  stmt) 
"{stmt  AIS  < input-statement>  }" 


control-^  3 


0 1/28/77 

Specification  of  BASIC  SEMANOL  Project 

Semantic  Definitions  Control  Semantics 


=>  ATRUE  #IFF 

ALENGTH(list-of-variables-to-be-input-in(stmt))  = 
ALENGTH(input-data-list-in( input-line))  A. 


ADF  i nput-data-types-match ( "wrt"  stmt) 

"{stmt  AIS  <input-statement>  }" 

=>  FALSE  A IFF  ATHERE-EXISTS  x : 1 <=  x <= 

ALENGTH (list-o f- variables- to- be-in put-in (stmt)) 
i ASUCH-THAT  ( ($  1 i st-element ( x ," in" 

list-of- variables- to-be- in  put- in (stmt) ) A) 
is-numeric-variable  A ANOT  (A  li st-element ( x , "in" 
input-data-list-in( input-line) ) A)  is-numer ic-datum 
) *. 


#DF  is-numer ic-datum( d ) 

"{d  AIS  <datum>  }" 

=>  ATRUE  AIFF  ACONTEXT-FREE-PARSE-TREE( d , "wrt" 
<numer ic-constant>)  AIS-NOT  ^UNDEFINED  A. 


#DF  all-data-is-in-range( "wrt"  stmt) 

"{stmt  AIS  <input-statement>  }" 

=>  AFALSE  AIFF  ATHERE-EXISTS  x : 1 <=  x <= 

ALENGTH (input-data-list-in( input-line) ) ASIJCH-THAT 
(($  list-element(x , "in" 
input -data-list-in( input-line)),  "wrt" 
list-element(x , "in" 

1 ist-of-var iables-to-be-input-in ( stmt ) ) A) 
is-not-in-range)  A. 


ADF  i s-not-in-range ( d , "wrt"  v) 

"{d  AIS  <datum>  & v AIS  <variable>}" 

= > string-value-is-not-in-range(d ) AIF  ANOT  (AdA) 
i s-numer ic-datum  ; 

= > numer ic-value-is-not-in-range(d ) AIF  (AvA) 


control-U  U 


01/2B/77 

Specification  of  BASIC  SEMANOL  Project 

Semantic  Definitions  Control  Semantics 


is-numer ic-variable  ; 

=>  string-value-is-not-in-range(d)  ^OTHERWISE  #. 

0DF  numeric-value-is-not-in-range(d) 

"{($d$)  is-numeric-datum] " 

=>  inval id-input-reply ( ' numer ic-d a turn- is-not- in-range • ) 
#IF  ($d$)  re3ults-in-numer ic-conversion-overf low  ; 

=>  ffFALSE  ^OTHERWISE  ». 

0DF  s tring- value- i s-not-in-range(d  ) 

"{d  #IS  <datum>  & *HOT  ($dS)  is-numeric-datum}" 

=>  inval id- input-reply ( ' string-da turn- is-not- in-r an ge ' ) 
0IF  (S  0STRI NG-OF -TERMIN ALS-OF ( d ) f)' 
results-in-str ing-over flow  ; 

=>  0FALSE  ^OTHERWISE  fi. 

0PROC-DF  input-new-data-for(stmt) 

"{stmt  0IS  input-statement)" 
flBEGIN 

^COMPUTE!  *OUTPUT( input-prompt-character ) 

^ASSIGN-VALUE ! input-line  = 
input-reply- tree( next-input-line) 

^COMPUTE!  valid ate- input-data- for ( stmt) 

A RETURN -WITH -VALUE ! ONIL 

END  0. 

0PROC-DF  numer ic-let-statement-ef f ect ( stmt ) 

"{stmt  0IS  <numer ic-let-statement>  }" 
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0BEGIN 

^COMPUTE!  ^ASSIGN -LATEST-VALUE ( standard-name-of 
(left-hand-side-of(stmt)) , "receives" 
numeric-value(right-hand-side-of(stmt))) 

0RETURN-WITH-VALUE ! ANIL 

# END  9. 


#DF  string-let-statement-effect (stmt) 

"{stmt  rtlS  <string-let-statement>  )" 

= > shor t-str ing-let-statement-ef  feet  ( stmt ) 9 IF  ffNOT  (.* 
string-value(right-hand-side-of(stmt))  $) 
results-in-string-over f low  ; 

=>  fatal-error( 'maximum-string-length-exceeded' ) 
^OTHERWISE  9. 


#PR0C-DF  short-string-let-statement-effect(stmt) 

"{stmt  *IS  <string-let-statement>  & 

0LENGTH(string-value(right-hand-side-of(stmt)))  <= 
max-assignable- string-length}" 

0BEG IN 

/^COMPUTE!  9 ASSIGN-LATEST-VALUE  (standard-name-of 
( left-hand-side-of (stmt) ) , "receives" 
string-value(right-hand-side-of(stmt))) 

0RETURN-WITH-VALUE!  #NIL 

#END  9. 


9 DF  next-statement-ef feet ( stmt ) 

"{stmt  #IS  <next-statement>  }" 

=>  increment-control-var iable ( stmt ) *IF  (Sstmt$) 
matches-act ive-for  ; 

= > no-matching-active-for  ^OTHERWISE  9. 
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ffPROC-DF  increment-control-variable(stmt) 

"{stmt  #IS  <next-statement>  }" 

0BEGIN 

^ASSIGN-VALUE ! f i rst-t ime-through  = OFALSE 

^COMPUTE  ! ^ASSIGN-LATEST- VALUE ( stand ard-name-of 
( control-variable-in ( stmt ))," receives" 

per  f orm ( ^LATEST- VALUE ( stand ard-name-of ( control -variable- in (stmt))) 

'♦ • , increment-of-matching-for ( stmt ) ) ) 

0RETURN-WITH-VALUE!  0NIL 

#END  If. 

#DF  increment-of-matching-for ( stmt) 

"{stmt  #IS  <next-statement>  }"  < ] 

=>  3 PTH-ELEMENT-IN  (active-control-variable(stmt) ) 9. 

0DF  matches-act i ve-for ( stmt ) 

"{stmt  9 IS  <next-statement>  }" 

= > lifTRUE  If  IFF  #THERE-EY  ISTS  x *IN  acti  ve-for-block-1  ist 
OSUCH-THAT  (control-var iable-is-active( x , "in"  stmt)) 

If. 

If DF  no-matching-active-for  t 

A 

=>  fatal-error( ' next-st a tement-mat ches-no-act i ve-for ' ) 

If. 

#PROC-DF  print-statement-effect  (stmt) 

"{stmt  if  IS  <pr  int-statement>  }" 

9 BEG  IN 
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0FOR-ALL  i : 1 <=  i <=  ^LENGTH 
(print-list-sequence-of  (stmt))  tfDO 

^COMPUTE!  convert-and-print  (i  (ITH-ELEMENT-IN 
print-list-sequence-of  (stmt)) 

0IF  dNOT  ($stmt$)  ends-in-separ ator 

0THEN  ^COMPUTE!  print  (end-of-print-line-char) 

0RETURN-WITH-VALUE ! 0NIL 

#END  f. 

If  DF  ends-in-separ  ator  ( stmt) 

"{stmt  *IS  <pr int-statement>  )" 

= > ffFALSE  # IF  print-list-sequence-of(stmt)  HEQ  »V ILSEO 

t 

= > (ITRUE  #IF  ($  i»LAST-ELEMENT-TM 

pr int-list-sequence-of ( stmt)  S)  is-pr int-separator 

= > ffFALSE  #OTHERWISE  If. 

If  DF  print-list-sequence-of  (stmt) 

"{stmt  #IS  <pr int-statement>  }" 

=>  ffSEQUENCE-OF  <expression>  tfU  <tab-call>  ffU 
<pr int-separator>  0IN  stmt  If. 

If  DF  i s-pr  int-separator  (nx) 

"(nx  rfIS  <expression>  If U <tab-call>  ffU 
<pr int-separator>  }" 

= > 0TRUE  #IFF  nx  HIS  <pr int-separator > If. 

If  DF  end-of-print-line-char 

"{ (ION-RETURN:  end-of-print-line-char  *IS 
< end-of-pr int-line>  } " 
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= > ’ [LF  ] ' A. 

ADF  print  (str) 

"{str  AIS  ASTRING}" 

=>  append-and-output  (str)  AIF  end-of-pr int-line-char 
AIS  ASUBWORD  str; 

=>  append-to-current-print-line  (str)  ^OTHERWISE  A. 

APROC-DF  append-and-output  (str) 

"{str  AIS  ASTRING  4 end-of-print-line-char  AIS  ASUBWORD 
str } " 

ABEGIN 

A COMPUTE ! append-to-current-print-line 
( (APREFIX-OF-FIRST  end-oT-pr int-line-char  IIM  str) 

ACW  end-of-print-line-char) 

If  COMPUTE { output-current-print-line 

ACOMPUTE!  print  ( ASUFFIX-OF-FI RST 
end-of-print-line-char  AIM  str) 

ARETURN-WITH-VALUE!  ANIL 

AEND  A. 

APROC-DF  append-to-current-print-line  (str) 

"{str  A IS  ASTRING}"  ■ 

A BEG  IN 

AASSIGN-VALUE ! current-print-line  r 
current-print-line  ACW  str 

ARETURN-WITH-VALUE*  ANIL 

AEND  A. 
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APROC-DF  output-current-print-line 
ABEGIN 

ACOMPUTE ! AOUTPUT  (current-print-line) 

^ASSIGN-VALUE ! current-print-line  = ANIL 
ARETURN-WITH-VALUE!  ANIL 
AEND  A. 

ADF  con vert-and-pr int  (x) 

"{x  A IS  <expression>  AU  <tab-call>  A U <pr int-separ ator> 
}" 

=>  print-tab  (tab-value  (x))  AIF  x AIS  <tab-call>  ; 

=>  ANIL  AIF  x AIS  ACASE  2 AOF  <print-separ ator>  ; 

= > print-comma  AIF  x AIS  ACASE  1 AOF  <pr int-separ ator> 

J 

=>  pr int-the-item 

( implementat  ion-  str  in  g-out  put-represent  at  ion 
(string-value  ( string-expression-of  (x))))  AIF  ($xS) 
is-string-ex press! on; 

=>  pr int-the-item  (numeric-output-representation 

(numeric-value  (numeric-expression-of  (x))))  AIF 
($x$)  is-numer ic-expression  A. 

ADF  tab-value  (tc) 

" { tc  AIS  <tab-call>  }" 

= > ($  integer-value(numeric-expression-of ( tc) ) A) 
adjusted-for-tabbing  A. 

ADF  ad justed-for-tabbing(n) 

”{n  AIS  A INTEGER } ” 

=>  tab-value-less-than-one  AIF  n < 1 ; 
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=>  residue(n  - 1,  "modulo"  implementation-margin ) + 1 
^OTHERWISE  If. 

0DF  tab-value-less-than-one 

=>  1 IflF  non-f atal-error ( ' tab-value-i3-less-than-1 ; 1 
assumed’)  If EOW  MIL  #. 

#DF  residue  (n, "modulo"  m) 

" { n >=  0 4 m > 0 } " 

= > ri  - (n/m)  * m If . 

#DF  integer-value  (nx) 

”{nx  #IS  <numer ic-expression>  }" 

=>  ( $ ($numeric- value  (nx ) $ ) rounded- to-an-in teger $ ) 
con ver ted-to-semanol-integer  II. 

#DF  print-tab  (n) 

"{1  <=  n 4 n <=  implementation-margin}" 

= > print  C($n  - columnar-position$ ) spaces)  HIF  n > = 
columnar-position  ; 

=>  print  ( end-of-print-line-char  #CW  ($n  - 1$) 
spaces ) # OTHERWISE  If. 

If DF  columnar-position 

= > ^LENGTH  (current-print-line)  + 1 If. 

*DF  spaces  (n) 

"{0  <=n  4 n <=  implementation-margin}" 

=>  ffLEFT  n ff CHAR ACTE RS-OF  line-of-spaces  if. 
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ADF  1 ine-of-spaces 

"{ON-RETURN:  ALENGTH  ( 1 i ne-of-spaces ) = 
implementation-margin  A AFOR-ALL  x : 1 <=  x <= 
implementation-margin  AIT-IS-TRUF-THAT  (x 
ATH-CHARACTER-IN  1 i ne-of-spaces  AIS  ASPACE  }" 

=>  blanks( implementation-margin)  A. 


ADF  blanks(n) 

"{n  AIS  AINTEGER}" 

= > ANIL  A IF  n <=  0 ; 

=>  ASPACE  ACW  blanks(n  - 1)  AOTHERVISE  *. 


ADF  print-comma 

=>  print-tab  ( next-zone-tab-pos i tion ) AIF  ANOT 
al ready-in-last- print-zone; 

= > print  (end-of-print-line-char ) AOTHERVISE  A. 


ADF  next-zone-tab-position 

= > AFIRST  pos  AIN  1 ist-of-zone-tab-oositions  ASUCH-THAT 
(pos  > columnar-position)  AIF  ATHE RE-EXISTS  pos  #IN 
list-of-zone-tab-positions  *SUCH-THAT  (pos  > 
columnar- position); 

=>  1 AOTHERVISE  A. 


ADF  list-of-zone-tab-positions 

=>  sequence-of-integers-of-length  ( nr-zones-in-margin 
,"starting-with"  1 , " in-steps-of " 
implementation-print-zone-width)  A. 


ADF  3equence-of-integers-of-length  (1  , "starting-at"  i 
, "in-steps-of " j) 
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"{1  >=  0 4 i #IS  ^INTEGER  4 j *IS  ^ INTEGER} " 

=>  ffNILSEQ  #IF  1=0; 

= > \i\  ACS  sequence-of-integers-of-length  (1  - 1 

, "starting-at"  i + J , "in-steps-of"  j)  ^OTHERWISE  9. 


#DF  nr-zones-in-margin 

=>  implementation-margin  / 

implementation-print-zone-width  miF  residue 
( implementation-margin  , "modulo” 
implementation-print-zone-width)  = 0 ; 

=>  implementation-margin  / 

implementation-print-zone-width  + 1 ^OTHERWISE  9. 


#DF  already-in-last-pr int-zone 

= > UTRUE  9 IFF  columnar-position  >=  0LAST-ELFMENT-IN 
list-of-zone-tab-positions  9. 


#DF  pr int-the-item  (str) 

"{str  #IS  m ST RING}" 

=>  print  (($str$)  altered-if-too-long)  9. 


0DF  altered-if-too-long  (str) 

"{str  #IS  ^STRING}" 

= > str  IF  ^LENGTH  (str)  <=  (implementation-margin  ♦ 1) 
- columnar-position; 

=>  end-of-pr int-line-char  mew  margin-checked  (str) 
^OTHERWISE  9. 


0DF  margin-checked  (str) 

"{str  HIS  mSTRING}" 

=>  str  miF  ^LENGTH  (str)  <=  implementation-margin; 
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s>  #LEFT  implementation-margin  #CH ARACTERS-OF  str  0CW 
end-of-pr int-line-char  #CW  margin-checked 
( #SUFFIX-OF-FIRST  (0LEFT  implementation-margin 
#CHARACTERS-OF  str)  filN  str)  ^OTHERWISE  #. 


#PR0C-DF  read-statement-ef fect( stmt) 

"{stmt  0IS  <read-statement>  }" 

ABEGIN 

"is  there  enough  data  in  the  remainder  of  the  data 
sequence?" 

#IF  fLENGTH ( li st-of-var iables-to-be-lnput-in ( stmt ) ) > 
if  LENGTH ( tot ality-of-dat a- in ( basic- program) ) - 
data-list-pointer  ♦ 1 
#THEN 

^COMPUTE! 

fatal-error( 'not-enough-data-left-in-data-list' ) 

"assign  data  to  variables  in  the  read  statement,  if 
type  matches" 

#F0R-ALL  x : 1 <=  x <= 

#LENGTH( list -of-variables-to-be-input-in( stmt))  #DO 
IfBEG  IN 

"is  a string  datum  being  assigned  to  a numeric 
variable?" 

IH F li st-element ( x , " in" 

1 ist-of-variables-to-be-input-in ( stmt) ) 0IS  #CASE  1 
1I0F  <var iable>  A f»N0T  (* 
list-element (data-list-pointer , "in" 
to tality-of-dat a- in( basic-program))  $ ) 
is-numeric-datum  0THEN 

if  COMPUTE ! 

fatal-error( ' string-datum-assigned-to-numeric-variable’  ) 
"assign  datum  to  variable" 

ifCOMPUTE!  assign-next-datum  ("to"  list-element(  x , 
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( 


i 

: 

i 


"in"  list-of-variables-to-be-input-in(stmt))) 

"increment  data-list-pointer" 

(^ASSIGN-VALUE!  data-list-pointer  = 
data-list-pointer  ♦ 1 

AEND 

ARETURN-WITH-VALUE ! ANIL 
AEND  A. 


9 DF  assign-next-datum( "to"  v) 

"{v  9 IS  <variable>  }" 

=>  assign-string-value-or-error  ("to"  v)  ATE  ANOT  ($vS) 
is-numeric-variable  ; 

=>  A ASSIGN-LATEST-VALUE ( standard-name-of ( v ) , "receives" 
numer ic -const ant-over f low-error-ef  feet 
(ASTRING-OF-TERMINALS-OF 
( list-element (data-list-pointer , "in" 
tot al ity-of-data-in ( basic-program )))) ) AIE  ( $ 
list-el ement(data-list- pointer,  "in" 
total ity-of-data-in  (basic-program))  $) 
r results-in-numeric-conversion-over flow  ; 

=>  A ASSIGN-L ATEST-V ALUE ( st and ard-n ame-of ( v ) , "receives" 
value-of-datum  ( 1 i st-el ement ( dat a-1 i st-pointer , "in" 
total i ty-of-data-in ( has ic-progr am )) , "wrt"  v)) 
f OTHERWISE  A. 


ADF  assign-string-value-or-error ( "to"  v) 

"{v  AIS  <variable>  }" 

= > fatal-error  ( ' string-datum-is-not-in-range ' ) ATP  (* 
list-el ement(data-list- pointer,  "in" 
totality-of-data-in(basic-program))  $ ) 
results-in-str ing-over fl  ow  ; 

=>  AASSIGM-LATEST-VALUE ( standard-name-of ( v) , "receives" 
value-of-datum  ( 1 i st-el ement ( dat a-1 i st-poi nter , "in" 
total ity-of-data-in ( basic-program) ) , "wrt"  v)) 
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AOTHERWISE  A. 


#DF  totality-of-data-in(prog) 

"(prog  fEQ  basic-program}" 

=>  ASEQUENCE-OF  <datum>  AIM  prog  #. 

APROC-DF  restore-statement-effect 
ABEGIN 

AASSIGN-VALUE!  data-list-pointer  = 1 
ARETURN-VITH-VALUE!  ANIL 
AEND  A. 


ADF  statement-successor-of ( stmt) 

"{stmt  AEQ  current-statement} " 

=>  simple-statement-successor-of (stmt)  AIF  ($stmt$) 
is-not-a-control-statement  ; 

=>  goto-statement-successor-of ( stmt ) AIF  stmt  AIS 
<goto-statement>  AU  <gosub-statement>  ; 

s>  if-then-statement-successor-of ( stmt)  AIF  stmt  AIS 
<if-then-statement>  ; 

=>  on-goto-statement-successor-of ( stmt ) AIF  stmt  AIS 
<on-goto-statement>  ; 

=>  for-statement-successor-of ( stmt)  AIF  stmt  ATS 
<for-statement>  ; 

=>  next-statement-successor-of ( stmt ) AIF  stmt  AIS 
<next-statement>  ; 

s>  return-statement-successor  AIF  stmt  AIS 
<return-statement>  A. 


ADF  simple-statement-successor-of  (stmt) 
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"{(Sstmt*)  i s-not-a-control-statement  ♦OR  stmt  AIS 
<for-statement>  AOR  stmt  AIS  < i f-then-statement>  AOR 
stmt  AIS  gosub-statement } " 

= > next-executable-statement-following  (stmt)  A. 


ADF  next-executable-statement-following  (stmt) 

"{stmt  AIS  statement}" 

= > ♦FIRST  stmnt  AIN 

sequence-of -ex ecu table-statements- in  (basic-program) 
ASUCH-THAT  (stmt  ♦PRECEDES  stmnt  AIN 
sequence-of-statements-in  (basic-program) ) ♦. 


♦DF  sequence-of-executable-statements-in  (px) 
"{px  AEQ  basic-program  }" 


=>  ASUBSEQUENCE-OF-ELEMEMTS  stmt  AIM 

sequence-of-statements-in  (px)  ASUCH-THAT  ( (Sstmtt) 
is-executable-statement  ) A. 


ADF  sequence-of-statements-in  (px) 
"{px  AEO  basic-program  }" 


= > ♦SEQUEMCE-Of  <data-stat.e 
♦ IJ  <def-sta 
AU  <dimensi 
♦U  <for-sta 
AU  <gosub-s 
♦U  <goto-st 
AU  <if-then 
♦U  <input-s 
AU  <numeric 
♦U  <string- 
♦U  <next-st 
AU  <on-goto 
♦U  <option- 
*U  <print-s 
AU  <randomi 
♦U  <read-st 
All  <remark- 
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0U  <restore-statement> 

#U  <return-statement> 

OU  <stop-statement> 

OU  <end-statement>  OIN  px  #. 


ODF  is-executable-statement  (stmt) 

"{stmt  OEQ  current-statement!" 

=>  #N0T  is-non-executable  (stmt)  0. 


ODF  i f-then-statement-successor-of  (stmt) 

"{stmt  OIS  <if-then-statement> } " 

=>  first-execut able-statement-star ting-with 

( statement-whose-line-number-is-equi valent- to 
(destination-line-number-of  (stmt)))  OIF 
relation-value  ( relational-expression-of  (stmt))  ; 

=>  simple-statement-successor-of  (stmt)  ^OTHERWISE  0. 


#DF  goto-statement-successor-of  (stmt) 

"{stmt  OIS  <goto-statement>  OU  <gosub-statement>  }" 

=>  f irst-executable-statement-starting-with 

( st atement-who se- 1 ine-number-is-equi valent- to 
(destination-line-number-of  (stmt)))  0. 


ODF  statement-whose-line-number-is-equivalent-to  (sn) 

"{sn  0 IS  < 1 ine-number>  }" 

=>  OFIRST  stmt  #IK  sequence-of-statements-in 

(basic-program)  OSUCH-THAT  ( line-number-value-of 
( ($stmt$)s-own-line-number ) = line-number-value-of 
( sn ) ) 0 . 


ODF  f irst-executable-statement-starting-with  (stmt) 
"{ (SstmtS)is-basic-statement}" 
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=>  stmt  • IF  ($stmt$)  is-executable-statement; 

=>  next-executable-statement-following  (stmt) 
•OTHERWISE  • . 


•DF  s-own-line-number  (3tmt) 

" { ( $stmt$  )is-basic-statement}'' 

=>  line-number-part-of  (line-containing  (stmt))  • . 

• DF  1 ine-number-value-of  (n) 

”{n  )fIS  <line-number>  91]  <line-id>  }" 

= > ($n$)  with-leading-zeroes-suppressed  If . 

• DF  with-leading-zeroes-suppressed  (n) 

”{n  #IS  •STRING  4 (^LENGTH-  (n)  >=  1 4 
•FIRST-CHARACTER-IN  (n)  • NEOV  •-•  #0R  •LENGTH  (n)  >= 
2)}" 

=>  ASUBSTRING-OF-CHARACTERS  index-of-f irst-non-zero-in 
(n)  #T0  •LENGTH  (n)  •OF  n • IF  first-character-in  (n) 
•NEOW  ; 

=>  #CW  ( $magn i tude ( n ) $ ) 

with-leading-zeroes-suppressed  •OTHERWISE  •. 

•DF  index-of-f irst-non-zero-in  (n) 

" { n »IS  •STRING  4 •LENGTH  (n)  >=  1 ) ” 

= > •FlftST  i : 1 <=  i <=  •LENGTH ( n ) •SUCH-THAT  ( i 

• TH-CHARACTER-IN  n »NEQW  ’O’  •OR  i #EO  •LENGTH ( n ) ) 

• . 

•DF  magnitude(n) 

" { n »IS  •INTEGER)” 

=>  n *IF  first-character-in  (n)  ANEQW  ; 
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=>  ♦SUFFIX-OF-FIRST  ♦ IN  n ♦OTHERWISE  ♦ . 


♦ DF  line-containing  (node) 

"{node  #IS  MODE } " 

=>  ♦FIRST  x ♦ IN  sequence-of-ancestors-of (node) 
♦SUCH-THAT  (x  ♦ IS  <line>  ) 9. 


♦ DF  on-goto-statement-successor-of  (stmt) 

"{stmt  9 IS  <on-goto-statement>  }" 

=>  statement-selected-by  ( integer-value 
( index-expression-of  (stmt))  ,"from" 
destination-line-number-list-in  (stmt))  9. 


♦ DF  statement-selected-by  (ix  ,"from"  lnlist) 

"{ix  *IS  ♦INTEGER  4 lnlist  ♦IS  ♦SEQUENCE  4 AFOR- ALL  In 
♦IN  lnlist  ♦IT-IS-TRUE-TH AT  (In  ♦IS  line-number))" 

=>  fatal-error 

( *on-goto-expression-value-less-than-one' ) ♦IF  ix  < 

1 ; 

= > fatal-error 

(,on-goto-expression-value>line-nr-list-length')  ♦IF 
ix  > ♦LENGTH  (lnlist)  ; 

= > f irst-ex ecu tab 1 e-statement- start ing-with 

( statement-whose-line-number-is-equivalent-to  ( ix 
♦TH-ELEMENT-IN  lnlist))  ♦OTHERWISE  ♦. 


♦DF  destination-line-number-list-in  (stmt) 
"{stmt  ♦IS  <on-goto-statement>  }" 

=>  ♦SEOUENCE-OF  < 1 i ne-number > ♦IN  stmt  ♦. 


♦DF  for-statement-successor-of ( stmt) 
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"{stmt  tfIS  <for-statement>  )" 

=>  deactivate-for-block( stmt)  0IF  ($stmt$) 
satisfies-for-expression; 

=>  simple-statement-successor-of ( stmt ) fOTHERWIFE 


ADF  sat  is f i e s- for-ex press ion ( stmt) 

"{stmt  AIS  <for-statement>  }" 

= > #TRUE  #IFF  implementation-gr eater-than-test  (perform 
(perform  ( ^LATEST-VALUE  ( standard-name-of 
(control-variable-in(stmt)))  , 2 0TH-ELE*FNT-IN 

active-control-variable(stmt) ) , ' * ' , 
modified-sign-of  ( increment-of -matching- for ( stmt) ) ) , 
implementation-zero)  A. 


9DF  modified-sign-of ( inc) 

"{inc  #IS  implementation-number}" 

=>  implementation-one  AIF  implementation-not-less-test 
( inc , implementation-zero)  ; 

= > implementation-negative-one  ^OTHERWISE  9 . 


4PR0C-DF  deactivate- for-block(  stmt) 

"{stmt  ffIS  < for-statement>  )" 
ffBEGIN 

AASSIGN-VALUE!  active-for-block-list  = 
new-active-for-hlock-list(stmt) 

0RETURN-WITH-V ALUE ! simple-statement-successor-of 
(matehing-next(stmt)) 

|*END  9. 


9 DF  match ing-next ( stmt ) 

"{stmt  AIS  <for-statement>  }" 
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=>  #FIRST  stmnt  IIN 

sequence-of-next-statements-fol lowing  ( stmt) 
ISUCH-THAT 

( standard-name-of ( control- variable- in ( stmnt ) ) IEQ 
standard-name-of (control- variable- in ( stmt) ) ) I. 


IDF  sequence-of -next-statements- following (stmt) 

"{stmt  IIS  <for-statement>  }" 

=>  ISUBSEQUENCE-OF-ELEMENTS  stmnt  IIN 

sequence-of-next-statements-in  ( root-node( stmt) ) 
ISUCH-THAT  (stmt  #PRECEDES  stmnt  IIN 
root-node( stmt) ) I. 


IDF  next-statement-successor-of ( stmt) 

"{stmt  IIS  <next-statement>  )" 

= > ILAST  stmnt  IIN  sequence-of-for-statements-preced ing 
(stmt)  ISUCH-THAT 

( standard-name-of ( control -variable- in ( stmnt ) ) IEQ 
standard-name-of ( control- variable- in ( stmt) ) ) I. 


IDF  sequence-of- for-statements-preced ing (stmt) 

"{stmt  IIS  <next-statement>  }" 

=>  ISUBSEOUENCE-OF-ELEMENTS  stmnt  IIN 

sequence-of-for-statements-in  (root-node (stmt) ) 
ISUCH-THAT  (stmnt  IPRECEDES  stmt  IIN 
root-node( stmt) ) I. 


IDF  return-statement-successor 

"{current-statement  IIS  <return-statement>  )" 
=>  retrieve-latest-return-point  I. 


IPROC-DF  retrieve- late3t-re turn- point 

"{current-statement  IIS  <return-statement>  )" 
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fBEGIN 

9IF  return-point-list  0EQ  ANILSEQ  ffTHEN 
^COMPUTE! 

fatal-error! ’ attempt- to-execute-mor e-return s-than-R03ubs ' 
"otherwi se  ..." 

9 ASSIGN-VALUE ! latest-return-point  = 
ffFIRST-ELEMENT-IH (return- point-list) 

^ASSIGN -VALUE!  return-point-list  = 
all-but-first-element-in  (return- point-list) 

#RETURN-WITH-VALUE ! latest-return-point 

*END  9. 

90F  all-but-f irst-element-in ( list) 

"(list  IfEQ  return-point-list} " 

= > #TERMINAL-SU8SEQ-0F-LENGTH ( ^LENGTH (list)  - 1)  9 OF 
list  9. 
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ADF  standard-name-of (name) 

"{  name  AIS  <numeric-variable>  AU  <str ing-var iable>  AU 
<variable>  AU  <simple-numer ic-var iable>  AU 
<numer lc-ar ray-element>  AU  <control-var iable>  }" 

=>  s t and a rd-ar ray- el ement-name-of ( 

nameable-part-of (name) ) AIF  nameable-part-of (name) 

AIS  <numer ic-ar ray-element>  ; 

= > 

standard-parameter-name-der ived-from( statement-containing 
(nameable-part-of (name) ) ) AIF 
( S nameahle-part-of ( name) $ ) 
is-def-statement-parameter  ; 

=>  ASTRING-OF-TERMINALS-OF ( nameable-part-of (name) ) 
AOTHERWISE  A. 


ADF  standard -array-el ement-name-of ( name) 

"{  name  AIS  <numer ic-array-element>  }" 

= > one-dimens  ion-array-el ement-name-of 

( numer ic-array-name-of (name)  , first-dimension-value 
( subscr ipt-part-of (name) ) 

, "wi th-respect-to-the-bounds"  opt ion -base- for (name ) 
,"and"  first-dime ns  ion-up per- bound-value- for (name ) ) 
AIF  ( Ssubscr i pt-par t-of ( name ) $ ) has-one-d imens ion ; 

= > two-d imens ion-ar r ay-element-name-of 

(numeric-array-name-of(name)  , first-dimension-value 
(subscript-part-of (name) ) , second-dimension-value 
(subscript-part-of(name)) 

, "wl th-respect-to-tb e-bounds"  op t ion-base- for ( name ) 

, "and"  f irst-d imens ion-upper-bound- value- for ( name) 
,"and"  second-dimension-upper-bound-value-for(name) ) 
AOTHERWISE  A. 


ADF  one-d imens ion -array-el ement-name-of 
( an ame findex,base, bound) 

"(aname  AIS  <numer ic-array-name>  AAND  index  AIS 
AIMTEGE R AAND  base  AT3-IN  \0,1\  AAND  bound  AIS 
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AINTEGER}" 

= > # STRING -0F-T ERMT N ALS-OF (an am e)  AC W '('  ACW  ($index$) 
with-leading -zeroes-suppressed  «IF  base  <=  index 
If  AND  index  <=  bound; 

=>  f atal-error (' subscript  out  of  bounds')  ^OTHERWISE  A. 


If DF  two-dimension-arrav-element-name-of 
(aname.idxl ,idx7,base,bound1 ,bound2) 

"(aname  IflS  <numer ic-arr ay-name>  AAND  idxl  /IIS  AINTEGER 
//AND  id  x2  ATS  /»INTEGFR  If  AMD  base  //IS-IN  \0,1\  /»AND 
bound  1 If  IS  //INTEGER  AAND  bound}  AIS  ^INTEGER}" 

= > //STRING-OF-TERMlHALS-OF(aname)  AC V '('  ACW  (SidxIS) 
with-leading-zeroes-suppressed  ACW  *,'  AC W ($idx2$) 
with-leading-zeroes-suppressed  AIF  base  <=  idxl  AAND 
idxl  <=  bound  1 A A N D base  <=  idx2  A AND  idx2  < = 
bound2 ; 

= > fatal-error  (' subscript  out  of  bounds')  AOTHERWISF.  a. 


ADF  first-dimension-value(sub) 

"{sub  AIS  <subscript> } " 

=>  ( $ ( $numer ic-value  (f irst-dimens ion-of (sub) )$ ) 

rounded-to-an-integer$)  converted-to-semanol- integer 
If. 


ADF  second-dimension-value( sub) 

"{sub  AIS  <subscript>  aaND  ($sub*)  h as- two-d imen s ior s } " 

=>  ( $ ( Snumer ic-val ue  ( second-dimension-of ( sub) ) $ ) 

rounded-to-an  - integer*)  converted-to-semanol- integer 
A. 


ADF  first-dimens  ion -up per-bound-value-f or  (arrayel) 
"{arrayel  ais  <numeric-array-element} " 

= > ASTRING-Oc‘-TERMTNALS-OF  ( f irst-dimension-bound-of 
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(bound s-part-of  (array-declaration- for 
( numeric-array-name-of ( arrayel ) ) ) ) ) I IF 
( Snumer ic-array-name-of ( arrayel ) { ) 
is-explicitly-declared-array ; 

= > 10  ^OTHERWISE  I. 


#DF  second-dimension-upper-bound-value- for (arrayel) 

"{arrayel  IIS  <numeric-array-element) " 

= > ISTRING-OF-TERMINALS-OF  ( second-dimension-bound-of 
(bounds-part-of  (array -declaration- for 
( numeric-array-name-of ( arrayel ) ) ) ) ) I IF 
( {numeric -array-name-of ( arrayel ) $) 
is-explicitly-declared-array; 

=>  10  ^OTHERWISE  I. 


#DF  option-base- for ( arrayel ) 

”{  arrayel  IIS  <numer ic-ar r ay-element>  }" 

=>  'O’  #IF  sequence-of-option-statements-in 
( root-node(  arrayel ) ) I EO  INILSEQ  ; 

=>  ISTRING-OF-TERMINALS-OF  ( option-base-of 

(IFIRST-ELEMEMT-IN  ( sequence-o f-opti on-statement s- in 
(root-node(arrayel) ) ) ) ) ^OTHERWISE  I. 


IDF  is-explicitly-declared-array( a name) 

"{  aname  US  <numer ic-ar ray-name>  )" 

= > #TRUE  I IFF  ITHERE-EXISTS  a UN 

sequence-of-array-declarations-in  (root-node( aname)) 
ISUCH-THAT  (aname  IEQW  numer ic-ar ray-name-of ( a ) ) #. 


IDF  array-declaration-for ( aname) 

"{  aname  IIS  <numer ic-array-name>  }" 

=>  IFIRST  a I IN  sequence-of-array-declarations-in 
( root-node( aname) ) ISUCH-THAT  (aname  IEQW 
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numer ic-ar ray-name-of (a) ) i ft. 


If DF  is-def-statement-parameter ( name) 

"{  name  tfIS  <simple-numer ic-variable>  0U 
<string-variable>  }" 

s>  ($  statement-containing(name)  , "has"  name  S) 

as-a-par  ameter  If  IF  ( $ statement-containing(name)  $) 
is-def-statement-with-par ameter  ; 

= > If  FALSE  ^/OTHERWISE  if. 


0 DF  as-a-parameter (def-st , "has"  name) 

"{name  If  IS  <string-variable>  If  U 
<simple-numer ic-var iable>  4 

($  def-st  $)  is-def-statement-with-parameter } " 

= > //TRUE  If  IFF  //STRIMG-OF -TERMIMALS-OF  (name ) #FQW 
#STRTNG-OF-TERMIMALS-OF( 
def-st  a tement-parameter-of  (de  f -st ) ) If . 


If  DF  statement-containing(nx ) 

"{nx  #IS  //NODE}" 

= > statement-part-of ( 1 i ne-containing ( nx  ) ) If. 


If  DF  standard -par  ameter-name-der  i ved-  from  ( def ) 

"{  ( $def$ ) i s-def-statement-with-parameter  1" 

= > Z/STRING-OF-TERMINALS-OF(  def- st atement-name-of  ( de f ) ) 
If CW  #STRIMG-OF-TERMTMALS-OF( 
def -statement-par ameter-of(def) ) ft . 
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ADF  results-in-string-overflow(s) 

"{  s #IS  ^STRING}" 

= > #TRUE  #IFF  #LENGTH(s)  > max-assignable-string-length 
♦ 2 & f irst-character-in ( s ) #FQW  * h 
last-character-in(s)  rfEQW  rfOR  ^LENGTH ( s ) > 

max-assignable-string-length  #. 


0DF  str ing-value( exp) 

”{  exp  HIS  (string-expression  }" 

=>  #LATEST-VALUE( stand ard-name-of ( 
string-var  iable-of  ( exp) ) ) If  IF 
( $exp$ ) is-string-variable  ; 

=>  remove-quotes-from( 0STRING-OF-TERMINALS-OF 
( str  ing-constant-of  (exp) ) ) HIF  ($exp$) 
is-string-constant  If. 


If DF  r emove-quotes-from( s ) 

"{  s *IS  ^STRING  }" 

= > ifSUBSTRING-OF-CHARACTERS  2 UTO  ^LENGTH ( s ) - MOF  s 

If. 


if  DF  numeric-value(exp) 

"{  ($exp$)  is-numeric-exp-subnodel" 

=>  numeric-value(operand-1-of (exp) ) AIF  exp  *IS 
<numer ic-expr ession>  <term>  HU  (facto r>  HU 

(primary>  ; 

=>  numeric-value(operand-1-of (exp) ) AIF  exp  H IS 
(positive-expression>  ; 

s>  perform(  numeric-value(operand-1-of (exp) ) , 

'unary-minus’,  /^UNDEFINED)  H IF  exp  »TS  (negation>  ; 

= > perform(  numer ic-value ( operand-1-of  (exp) ) , 
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numeric-value ( operand-2-of ( exp )) ) 0IF  exp  *IS  <sum> 


=>  perform!  numeric-value!  operand- 1-of !exp) ) , 
numeric-value(operand-2-of  ( exp) ) ) /IIP  exp  4IS 
<difference>  ; 

=>  perform!  numeric-value!  operand-1-of (exp) ) , 
numeric-value(operand-2-of (exp) ) ) 9 IF  exp  *IS 
<product>  ; 

=>  perform!  numeric-value!  operand-1-of (exp) ) , •/', 

numeric-value(operand-2-of  (exp) ) ) *IF  exp  /IIS 
<quotient>  ; 

=>  perform!  numeric-value!  operand-1-of (exp) ) , , 

numeric-value(operand-2-of  (exp) ) ) /»IF  exp  *IS 
<involution>  ; 

= > ffLATE ST-V ALUE! standard -name-of( exp))  HIF  exp  #IS 
<numer ic-variable>  ; 

=>  numeric-constant-value(exp)  *IF  exp  #IS 
<numer ic-rep>  ; 

=>  numeric-function-value(exp)  fflF  exp  4IS 
<numer ic-function-ref > fl. 


"The  BASIC  standard  prescribes  certain  actions  for  error 
conditions  which  can  occur  in  the  evaluation  of  the 
arithmetic  operators.  Overflow,  division  by  zero  and  some 
special  cases  in  involution  are  required  to  give  a non-fatal 
error  and  return  some  standard  result,  possibly  depending  on 
one  or  both  arguments.  Underflow  is  not  considered  a 
non-fatal  error,  at  least  to  the  extent  of  listing  it  in  the 
error  section  under  the  evaluation  section.  However,  the 
remarks  suggest  that  underflow  be  treated  as  an  error, 
though  clearly  not  requiring  treatment  as  an  error.  We 
choose  to  model  this  by  an  implementation-dependent 
parameter  whose  value  is  ITPUE  or  0FALSE.  If  it  is  *TRUE, 
then  underflow  is  uniformly  treated  as  a non-fatal  error, 
otherwise  it  returns  the  prescribed  value, 
implementation-zero,  with  no  other  effect. 

The  RASIC  standard  specifies  that  non-fatal  errors 
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shall  be  reported  and  subjected  to  the  specified  error 
recovery  procedures.  The  text  of  the  report  is 
implementation  dependent.  Generally,  the  recovery  procedure 
returns  some  specified  value.  Usually  it  returns  one  of  the 
implementation  dependent  limits,  such  as 

implementation-infinity  or  implementation-zero.  For  many 
< cases,  the  standard  specifies  that  either  plus  or  minus 

infinity  is  the  non-fatal  recovery  procedure  result.  The 
sign  of  the  result  is  determined  from  the  operands." 
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flDF  perform(op1 ,op ,op2) 

"{  ($op1$)  is-implementation-number  & ($op2$) 

is- implementation-number  A op  JIS-IN 

\' unary-minus’ }" 

=>  special-ef fect(op1 ,op,op2)  #IF  ( $op1 ,op,op2$) 
requires-special-effect; 

= > over f low-error-ef fect(op1 ,op ,op2)  0IF  (*op1,  op, 
op2$)  results-in-overf low; 

=>  underf low-ef fect(op)  fflF  (Sopl,  op,  op2*) 
results-in-underflow; 

= > simple-performCopI  ,op,op2)  ^OTHERWISE  *. 


#DF  r esults-in-over f low(op1 ,op,op7) 

"{ ($op1$)  is-implementation-number  & (top2$) 
is-implementation-number  h op  *IS-IN 
Vunary-minus'  , ' + ' , ' - ’ , , '/'  , ' * ' \ " 

= > ($op1$)  results-in-negate-over f low  ATF  op  tfEQV 
'unary-minus ' ; 

=>  ($op1,op2$)  results-in-add-overf low  AIF  op  *EQW 
=>  ($op1,op2$)  results-in-subtract-over f low  AIF  op  *EQW 

t . 

f 

= > ($op1,op2$)  results-in-multiply-overflow  AIF  op  QF.QV 

if  i ■ 


=>  ($op1,op2$)  results-in-divide-overf low  *TF  op  tfEQW 
•/•  S 
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= > ($op1,op2$)  results-in-involute-over f low  JIF  op  #ECW 
' * ' #. 


0PROC-DF  over flow-error-ef fect(op1 ,op,op2) 

"{ ($op1$)  is-implementation-number  A (SopBS) 
is-implementation-number  A op  0IS-IN 
\' unary-minus’ 

#BEGIN 

COMPUTE ! non-fatal-over  flow -error-re port (op) 

0IF  overflow-result-sign(op1  ,optop2)  It EOW  ' + ' 
#THEN  RETURN-WITH-VALUE ! implementation-inf initv 

It  IF  overflow-result-sign(op1  ,op,op2)  It  EOW 
/fTHEN  0 RETURN -WITH- V ALUE ! 
implement at ion-negati ve-in  f ini ty 

#END  n. 


0DF  results-in-underflow(op1 ,op,op2) 


"{ ($op1.t)  is-implementation-number  K ($op2$) 
is-implementation-number  & op  4IS-IN 
\ ' unary -minus' , ' + ' , , '/' , ' * ' \ } " 

= > ($op1$)  results-in-negate-under  flow  !tl?  op  It  EOW 
' unary-minus ' ; 

=>  ($op1,op2$)  results-in-add-underf low  #IF  op  *EQW 


=>  ($op1fop2$)  results-in-subtract-underflow  *IF  op 
It EQW 

=>  ($op1,op2i)  results-in-multipl v-underflow  ?IF  op 
#EQW  *•'; 

=>  (top1,op2$)  results-in-divide-underflow  *TF  op  *EQV 


'/• ; 

=>  ($op1,op2i)  results-in-lnvolute-under f low  *TF  op 
*EQW  •“»  it. 
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IPROC-DF  underf low-effect(op) 

"{op  IIS-IN  \ ' unary-minus /','“'  \ } " 
IBEGIN 

#IF  underf low-is-a-detected-non-fatal-error 

ITHEN  ICOMPUTE!  non-fatal-underflow-error-report(op) 

I RETURN -WITH- VALUE ! implementation-zero 

IEND  9. 


IDF  non- f at a 1 -over flow-error- re port (op) 

".{op  IIS-IN  \ ' unary-minus  ',  , + \ } " 

=>  non-f atal-negate-overflow-error-report  IIF  op  IEQW 
' unary-minus' ; 

=>  non-fatal-add-overflow-error-report  IIF  op  IEQW 
=>  non-fatal-subtract-overflow-error-report  IIF  op  #EQW 

II. 

I 

=>  non-f atal-multiply-overf low-error-report  IIF  op  IEQW 

in. 


=>  non-f atal-divide-overflow-error-report  IIF  op  IFQW 

=>  non-fatal-involute-overflow-error-report  IIF  op  #EQV 

I. 


IDF  overflow- result-sign(op1 top,op2) 

"{($op1$)  is-implementation-number  & ($op2$) 
is-implementation-number  & op  ITS-TN 
\' unary-minus' 

=>  negate-overflow-result-sign(op1 ) IIF  op  *EQW 
' unary-minus ' ; 

= > add-over f low-result-sign ( op  1 ,op2)  IIF  op  IEQW 
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=>  subtract-over f low-result-sign (opl ,op2)  OIF  op  OFQW 

1.1. 

* 

=>  multiply-overflow-result-sign(op1 ,op2)  0IF  op  *EQW 
• * • . 

9 

=>  divide-overflow-result-sign(op1 ,op2)  OIF  op  OFQW 
’/•; 

= > involute-overflow-result-sign(op1 ,op2)  OIF  op  OEOV 
It. 


it  DF  non  - f atal -under  flow-error- re  port  (op) 

"{op  ^ I S — I N \ ' unary-minus f \ " 

= > non-fatal-negate-under flow-error-report  < TF  op  0 EQ,J 
'unary-minus' ; 

= > non-fatal-add-underflow-error-report  OIF  op  OFQV 


=>  non-fatal-subtract-underflow-error-report  OIF  op 
OFQW 

=>  non-f atal-multiply-underf low-error-report  OIF  op 
OFQW 

=>  non-fatal-divide-under flow-error-report  OIF  op  OFQV 
'/'; 

=>  non-fatal-involute-underflow-error-report  OIF  op 
OEQW  '*•  It. 


It  DF  s imple-per  form(op  1 , op  ,op2 ) 

"{ ($op1*)  is-implementation-number  4 (*op?$1 
is-implementation-number  4 op  *IS-IN 
\' unary-minus' 

= > impl ementation-nectate ( op  1 ) *Ir  op  OFOW 
' unary-minus ' ; 


= > implementation-add(op1  ,op2)  OIF  op  ffFQ,J  ’ + 
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=>  implementation-subtract (opl ,op2)  0IF  op  0FQW 
= > implementation-multiply (opl  ,op2)  if T F op  4F0V 
=>  implementation-divide(op1 ,op2)  #IF  op  *EOW 


= > implementation-involute(op1 ,op?)  #IF  op  ffEQW  *"•  if. 

| *DF  requires-special-effect(op1 ,op ,op2) 

"{($op1$)  is-implementation-number  4 ($op2$) 
is-implementation-number  \ op 
\' unary -minus' , ' + ' ' , ' / ' , • * ' \ } " 

= > if  FALSE  #IF  op  JIS-IN  \ * unary-minus  \ ; 

=>  ($op1,op2$)  requires-special-divide-ef feet  tflF  op 

*EQW  */’; 

=>  ($op1,op2$)  requires-special-involute-ef feet  *IF  op 

#EQW  if. 

fDF  special-ef fect(op1 ,op,op 2) 

"{($op1$)  is-implementation-number  *•  ($op2$) 
is-implementation-number  & op  4IS-I*J 

= > special-divide-ef fect(op1 ) *IF  op  3EQV 

= > special-involute-ef fect(op1 ,op?)  flIF  op  #EO'J  •*' 

"Divide  has  one  special  case,  division  by  zero." 

0DF  requires-speci al-d iv ide-ef feet ( op  1 ,op2) 

"{  (SopIS)  is-implementation-number  ($op2*) 
is-implementation-number 1 " 

=>  UTRUE  ^I^F  implementation-equals-test  (op?, 
implementation-zero)  if. 

If  PROC-DF  spec  i al-d  iv  ide-ef  feet  ( opl ) 


eval-7^ 


control-61 


yi  ■if- 

, Wf  -■*" 


Specification  of  BASIC 
Semantic  Definitions 


01 /PS/77 
SEmamoL  Project 
Evaluation 


" { ($op1$)  i s-imDlementation-number  A (3;op2S) 
i s-im piemen tat ion -number } " 

OBEGIN 

^COMPUTE!  non-fatal-divide-by-zero-error-report 

9IF  divide-by-zero-result-sign(op1 ) AEQW 

ffTHEN  ff RETURN-WITH-VALUE ! implementation-infinity 

0IF  divide-by-zero-result-sign(op1 ) 0EQW 
/•THEN  ^RETURN -WITH -VALUE! 
implement at  ion-negative -inf in ity 

SEND  9. 


"Involution  has  three  special  cases.  They  are  0*0, 
0“ (negative)  , and  ( negative) *( non-in teger ). " 


0DF  requires-special-involute-ef fectfopl ,op2) 

"{(Sop1$)  is-implementation-number  A (Sop2$) 

i s-implementat ion-number } " 

=>  ffTRUE  AIF  implementation-equal s-test  (opl , 

implementation-zero)  A implementation-equal s-test 
(op2,  implementation-zero); 

= > 0TRUE  #IF  implementation-equals-test  (opl, 

implementation-zero)  A implementation-less-than-test 
(op2,  implementation-zero); 

= > #TRUE  9 IF  implementation-less-than-test  (opl, 
implementation-zero)  & 9N0T  (Sop2$) 
is- implementation- in teger ; 

= > 0FALSE  /^OTHERWISE  9. 


'PROC-DF  special-involute-effect (opl ,op2) 

"{ ($op1$)  is-implementation-number  A (Son2$) 
is-implementation-number}" 

ffBEGIN 
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IflF  implementation-equals-test  (opl, 
implementation-zero) 

OTHEN 

#BEGIN 

HIF  implementation-equal s-test  (op2, 
implementation-zero) 

0THEN 

"Case  of  zero'zero" 

It  RETURN -WITH -VALUE  ! implementation-one 
"Case  of  zero  to  negative  power." 

^COMPUTE! 

non- fatal -zero-in voluted-to-negati ve-er r or -report 
# RETURN -WITH -VALUE ! imol emen tat  ion-inf ini ty 
0END 

"the  only  case  left  by  this  point  in  this  df  is  a 
negative  involuted  to  a non-integer  power." 

//COMPUTE!  fatal-error  ('  negative  involuted  to 
non-integer ' ) 

#ENP  A. 


ItDF  numeric-function-value( ref ) 

"{  ref  It  IS  Cnumer  ic-function-ref  > }" 

= > numer ic-def ined-f unction- value 

(numeric-def ined-f unct ion-ref-of (ref ) ) AIR  (*refJ) 
i s-numer ic-def ined-f unct ion-ref ; 

= > numeric- supplied- function-value 

( numer  ic-supplied-f  unct  ion-ref-of  (ref ) ) //OTHERWISE 

If. 
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KPROC-DF  numeric-defined-function-value(dref) 

"{  dref  KIS  <numer ic-def ined-function-ref>  }" 

KBEGIN 

KIF  ($dref$)  has-an-ar gument 
KTHEN  ((COMPUTE ! K ASSIGN-LATEST-VALUE 
(standard-parameter-name-derived- from 
(def -statement-with-name 

( numer ic-def ined-function-name-of (dref ) ) ) , "the 
value"  argument-value-of ( dref ) ) 

KRETURN-WITH-VALUE 1 numeric-value 

(def -statement-expr ess  ion -of  (def -statement-with-name 
( numer ic-def ined-function-name-of (dref ) ) ) ) 

((END  K. 


A* DF  def-statement-with-name(dname) 

"{dname  KIS  <numeric-def ined-function>  } " 

= > KFIRST  x ((IN  (ASEQUENCE-OF  <def-statement>  KIM 
root-node(dname) ) KSUCM-THAT ( 

KSTRING-OF-TERMINALS-OF(  def-statement-name-of(x)) 
KEQW  KSTRTMO-OF-TERMINALS-OF(dname)  ) A . 


KDF  argument-value-of ( ref ) 

"{ref  KIS  <numeric-def ined-function-ref>  AM 
<numer ic-supplied-function-ref > * AND  (SrefJ) 
has- an- argument } " 

= > numeric-value  ( argument-expression-of (ref) ) A. 


ADF  numer ic-suppl ied- function- va 1 ue ( sr ef ) 

"{sref  AIS  <numer ic-suppl ied- funct ion-ref > } " 

= > abs-function-value (argument-value-of  ( sref) ) A 1!7 
($sref$)  is-abs-function-ref ; 

=>  atn-function-value ( argument-value-of ( sref ) ) AIF 
($sref$)  is-atn-function-ref ; 
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=>  cos-function-value( argument- value-of (sref ) ) #IF 
($sref$)  is-cos-function-ref ; 

=>  exp-funct ion-value ( ar gument-value-of ( sref ) ) #IF 
($sref$)  is-exp-function-ref ; 

=>  int-function-value(argument-value-of ( sref ) ) #IF 
($sref$)  is-int-function-ref ; 

=>  log-f unction-value ( argument-value-of ( sref ) ) AIF 
($sref$)  is-log-function-ref; 

= > rnd- function -value  "IF  ( .*sr  ef  * ) is-rnd- function-ref; 

= > sgn-function-value ( argument-value-of ( sref ) ) "IF 
(SsrefS)  is-sgn-function-ref ; 

= > sin-function- value ( argument-value-of  ( sref ) ) /'IF 
($s ref$)  is-sin-function-ref ; 

=>  sar-funct ion-value ( argument-value-of ( sref ) ) "IF 
(Ssref$)  is-3qr-function-ref ; 

=>  tan-function-value( argument-value-of (sref ) ) "IF 
($srefl)  is-tan-function-ref 


"DF  abs-function-value(n) 

” { ( $n$ ) i s-implemen tat ion -number } " 

=>  implementation-negate(n)  "IF 
implement at ion-less-than-test 
( n , implementation-zero)  ; 

= > n "OTHERWISE  II. 


"DF  atn-funct ion-value ( n ) 

" { ( $n< ) i s-implemen tat  ion -number } " 

=>  implementation-arctangent-function(n) 

"DF  cos-function-value ( n ) 
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" { ( $n$ ) is- implementation-number) " 

= > implementation-cosine-function(n)  If. 

4DF  exp-function-value(n) 

" { ( $n$ ) is-implementation-n umber}'' 

= > exponent ial-f unction-over flow-ef f ect ( n ) fflF  ($n$) 
results-in-exponential-function-overflow; 

=>  exponent ial-f unction-under flow-ef f ect ( n ) flIF  ($nt) 
results-in-exponential- function-under  flow; 

= > implementation-exponential-function  ( n ) //OTHERWISE  4 . 

#DF  int-function-value ( n ) 

"{ ($n$)  i s- implement at ion-numbe r } " 

=>  implementation-integer-function(n)  4. 

#DF  log- function- value ( n ) 

" { ( $n$  ) is-implementation-number}" 

= > spec!  al-logar  ithm-function-ef  feet  ( n ) #IF  /'VO T 
implementation- greater- than -test 
( n , implementation-zero) ; 

=>  implementation-logar ithm-f unction ( n ) ^OTHERWISE  n. 


"The  rnd  function  is  peculiar.  It  has  no  direct  argument, 
vet  it  is  affected  by  the  occurrence  of  a randomize 
statement  in  a program.  Therefore,  the  presence  of  the 
randomize  stement  is  passed  as  an  argument  to  the 
mplementatlon  dependent  section.  The  argument  is  a boolean 
is  fl-RUE  if  the  randomize  statement  is  present." 


<-runction-value 

* ’ »m*ntat  ion-random-function  ( //TRUE  ) OIF 
*"•1  mize-occurs-in-program; 
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=>  implementation-random-f unction ( If FALSE ) ^OTHERWISE  If. 


ffDF  randomize-occur s-in-program 

= > #TRUE  # IFF  #THERE-EXISTS  x (KIN 

( #SEQUENCE-OF-NODES-IN (basic-program))  flSUCH-THAT ( x 
0IS  <randomize-statement> ) If. 

If DF  sgn-function-value(n) 

” { ( $n$ ) i s-implementation-number } " 

=>  implementation-negative-one  fl>IF 
implement at ion-less- than- test 
(n, implementation-zero); 

=>  implementation-zero  *IF  implementation-equals-test 
( n , implementation-zero) ; 

= > implementation-one  ^OTHERWISE  If. 

0DF  sin-function-value(n) 

”{ ($n$  ) i 3- implementation-number}” 

= > implementation-sine-function(n)  If. 

If  DF  sqr-function-value(n) 

" { ( $n$  ) i s-implementation-number } " 

= > special-square-root-function-result(n ) IflF 
implementation-less- than- test 
( n , implementation-zero) ; 

= > implementation-square-root-function(n)  ^OTHERWISE  If. 

#DF  tan- function-value ( n ) 

” { ( $n$ ) i s-implementation-number } " 

= > t an  gen  t-funct  ion-over  flow-ef  f ect(n)  0IF  ( $n* ) 
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results-in-tangent- function -overflow; 

=>  implementation-tangent-function (n ) ^OTHERWISE  <f . 

ifPROC-DF  speci al-logar ithm-function-ef fect(n) 

”{($n$)  i s-im piemen tat  ion- number } " 

JBEGIN 

//COMPUTE!  fatal-error! ’non-positive  argument  to  LOG 
function ' ) 

END  If. 

tfPROC-DF  special-square-root-function-result(n) 

” { ( $n$  ) is- implementation-number } " 

//BEGIN 

//COMPUTE!  f atal-error( ' negative  argument  to  SOR 
function ' ) 

0END  If. 

//PROC-DF  exponential-f unction-over flow-effect(n) 

" { ( $n$  ) i s- implement at  ion -number } " 

//BEGIN 

//COMPUTE ! 

non-fatal-exponential- function-overflow -err or -report 

If  IF  exponential-function-result-sign  (n)  IfFQ'-i  ' ♦ ' 
//THEN  JRETURN-WITH-VALUE ! implementation-infinity 

//IF  exponential-function-result-sign  (n)  If EQW 
//THEN  //RETURN-WITH-VALUE! 
implementation-negative-infinitv 

//END  If. 
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#PROC-DF  tangent-function-overf low-effect (n ) 

" { ( $n$  ) is- implement at  ion-number } " 

0 BEG  IN 

ICOMPUTE! 

non-f  at al- tangent- function -over flow-error-report 

#IF  tangent-function-result-sign  (n)  IfEOW 
#THEN  0 RETURN- WITH- VALUE ! implementation-infinity 

If IF  tangent-function-result-sign  (n)  # EQW 
#THEN  #RETURN-WITH-VALUE! 
implement at  ion-negative- inf initv 

d>END  If. 

0PROC-DF  exponential-funct ion-under flow-effect ( n ) 

" { ( $n$ ) i s-im piemen tat  ion -number } " 

0BEGIN 

^COMPUTE! 

non-f atal -exponential-function-under  flow -error-re port 
0RETURN-WITH-VALUE ! implementation-zero 
*END  If. 


"The  following  definition  of  numeric-constant-value  utilizes 
the  same  implementation-dependent  functions  as  input  for 
conversion  and  error  testing.  The  PASIC  standard  does  not 
state  that  input  conversion  is  the  same  as  numeric  constant 
conversion  in  programs,  but  it  seems  to  be  a reasonable 
assumption . " 


#DF  numer ic-cor Jtant-value ( n ) 

"{n  tfIS  <numer ic-rep>  #U  <numer ic-constant>  }" 

=>  numeric-constant-over flow-error-ef feet 
( #STR ING-Oc-TERMT  N ALS-OF ( n ) ) AT  F 
( $0STRTf'G-OF-TERMTNAL?-OF  (n)«) 
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results- in-numeric-conversion-overflow; 

=>  numeric-constant-underflow-effect  4IF 
($//STRING-0F-TERMINALS-0F(n)*) 
results-in-numer i c-con vers  ion-under  flow; 

= > implementation-numeric -represent at  ion 

USTRING-OF-TERMTNALS-OF(n)  ) //OTHERWISE  /» . 


//PROC-DF  numer i c-con st ant-over f low-er ror-ef f ect ( s ) 

"{s  *IS  //STRING  & 

0CONTEXT-F.REE-PARSE-TREE(s,<numeric-constant>)  //IS 
//NODE } " 

//BEGIN 

^COMPUTE! 

non-f  a tal -numer i c-con st ant-over flow-error-report 

#IF  numer ic-constant-overf low-result-sign ( s)  //EQW  ' + ' 
//THEN 

//RETURN-WITH-VALUE ! implementation-infinity 

If  IF  numer  ic-constant-over  f low-result-sign  ( s ) 0EOW 
If  THEN 

//RETURN -WITH -VALUE!  implementation -negative-infinity 
/»END  If. 


If  P ROC -OF  numeric-constant-underflow-effect 
JBEGIN 

//COMPUTE! 

non- fatal -numeric-constant-underflow-error-report 
0RETURN-VITH-VALUE ! implementation- zero 
//END  If. 
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"{rel-exp  US  <relational-expression>  }" 

= > string-relation-value  (rel-exp)  /»IF  (irel-expH) 
is-string -relational-expression; 

= > numeric-relation-value  (rel-exp)  />IF  (fire 1-exp*) 
is -numeric-relational -ex pres sion  if . 


If DF  string-relation-value  (rel-exp) 

"{($rel-exp$)  is-string-rel at ional-ex press  ion}” 

=>  apply-string-relation-test  (string-value 

( operand-1 -of  (rel-exo))f  relation-of  (rel-exp), 
string-value  (operand-2-of  (rel-exp)))  If. 


If  DF  apply-string-relation-test  (opdl,  relop,  opd2) 

" { opd 1 *IS  //STRING  4 relop  dTS  <equality-relation>  4 
opd2  #IS  ^STRING ) " 

=>  string-equals-test  (opdl, opd?)  0TF  relop  7FQW 

=>  str ing-not-equal s-test  (opdl,  opd?)  //IF  relop  *EQW 
’<>*  If. 


If  DF  string-equals-test  (opd1,opd2) 

”{  opdl  //IS  //STRING  4 opd?  IflS  //STRING}" 
= > opdl  0EQW  opd?  If. 


//DF  string-not-equals-test  (opdl,  opd2) 

"{opdl  /»IS  //STRING  4 opd2  //IS  //STRING}" 

= > opdl  /ZNEQW  opd2  If. 

"COMMENT:  The  BASIC  standard  does  not  specify  enough 
explicitly  about  the  nature  of  the  numeric  relationals. 
In  particular,  it  is  not  stated  whether  any  error 
conditions  are  associated  with  the  relations.  Tf  the 
implementation  were  to  use  subtraction  followed  hv  a 
comparison  to  zero  as  the  basis  for  defining  the 
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relations,  then  the  subtraction  could  result  in 
overflow.  Since  the  standard  does  not  explicitly  say 
that  overflow  can  occur,  it  must  be  assumed  that  it 
cafinot  and  so  the  implementor  must  guard  against  any 
errors  occurring  in  numeric  relations.” 


IDF  numeric-relation-value  (rel-exp) 

" { ( $rel-exp$) is-relational-expression } " 

s>  apply-numer ic-relation-test  (numeric-value 

(operand-1-of  (rel-exp)),  relation-of  (rel-exp), 
numeric-value  ( oper and-2-of  (rel-exp)))  I. 


IDF  apply-numer ic-relation-test  (opdl,  relop,  opd2) 

”{($opd1$)  i s-implementation-number  A relop  IIS 

<relation>  A ($opd2$)  i s-implementation-number } " 

=>  implementation-equals-test  (opd1,opd2)  IIF  relop 
IEQW  •=*; 

=>  implementation-not-equals-test  (opdl,  opd2)  IIF 
relop  IEQW  •<>•; 

=>  implementation-less-than-test  (opdl,  opd2)  IIF  relop 
IEQW  •<’; 

=>  imolementation-greater-than-test  (opdl,  opd2)  IIF 
relop  IEQW 

=>  implementation-not-less-test  (opdl,  opd2)  IIF  relop 
IEQW  •>=•; 

= > implementation-not-greater-test  (opdl,  opd2)  IIF 
relop  IEQW  '<='1. 


I 


eval-95 


Specification  of  BASIC 
Semantic  Definitions 


01/28/77 
SEMANOL  Project 
Conversions 


' 

* 


{ 

i 

i 

! i 

k fe 

j 


"In  a number  of  places  in  the  specif ication  of  BASIC, 
certain  numbers  are  required  to  be  integers,  such  as 
the  TAB  function  or  array  bounds.  To  describe  these 
things,  it  is  convenient  to  convert  the  implementation 
numbers  to  semanol  integers  and  operate  on  these 
integers.  This  can  be  accomplished  in  an 
implementation  independent  fashion  by  first  converting 
the  implementation  dependent  number  to  a canonical 
standard  form  number  and  then  converting  that  to  a 
SEMANOL  integer." 


DF  converted-to-semanol-integer(r) 

"{  ($r$)  is-implementation-integer  }" 

=>  convert-canonical-f loat-to-semanol-integer  (($r$) 
converted-to- canonical-float)  # . 


0DF  convert-can on ical-float- to -semanol-integer(n) 

"{($n£)  i s-canonical -float } " 

= > s ign i f icand-part ( n ) flCW  ( *ex rad-part ( n ) * ) zeros  *. 

"Define  a conversion  function  to  convert  an 
implementation-number  to  a cononical  form  basic 
constan  t . " 


0DF  converted-to-canonical-float  (r) 

" { ( $r$  ) i s- implement at  ion -number  1 " 

=>  ($($r$)  converted-to-standard-f loat$ ) 
in-canonical-form  #. 

I 

f 


t 


"In  order  to  define  the  proper  output  form  of  numbers,  the 
implementor  is  required  to  define  two  parameters,  the 
implementation-significance-width,  also  represented  as  the 
letter  d,  and  the  implementation-exrad-width,  or  e.  The 
standard  does  not  seem  to  require  that  d or  e have  any 
relation  to  the  impl ementat ion  precision  or  range.  There  is 
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a requirement  that  d must  be  at  least  5 and  e must  be  at 
least  2.  The  resolved  questions  on  page  35  are  not  part  of 
the  standard.  It  contains  the  only  guideline  for  choosing  d 
and  e.  The  statement  there  is  that  the  implementor  may 
choose  d and  e to  allow  output  of  all  numeric 
representations  in  the  range  of  the  implementation. 

For  the  purpose  of  determining  the  output  format  for  a 
given  number,  the  class  of  possible  numbers  is  divided  into 
four  classes. 

a.  integers  whose  magnitude  is  in 

the  range  0 to  (but  not  including)  10*d. 

b.  non-integers  whose  magnitude  is  in  the  range 

0.1  - 0 . 5*1 0* (-d-1  ) to  (but  not  including) 

1 0*d  - 0.5  . 

c.  Numbers  less  than  0.1  - 0 .5* 10* (-d-1 ) which  can 

be  represented  exactly  in  d decimal  digits. 

d.  all  other  numbers. 

This  classification  is  derived  from  page  33,  lines  1 
thru  30.  The  possible  formats  are  defined  on  page  13, lines 
12  thru  15.  Class  a numbers  are  output  using  the  so-called 
MR1  format.  Class  b use  NR2.  Class  c also  uses  NR2  format 
by  virtue  of  the  fact  that  all  its  members  can  be  exactly 
represented  in  the  NR2  form.  Note  that  for  non-decimal 
implementations,  numbers  which  are  potentialy  in  class  c 
must  be  converted  to  decimal  representation  on  a trial 
basis.  Class  d uses  NR3  format. 

The  class  b limits  require  some  interpretation.  Ve 
take  it  that  the  intent  of  class  b is  to  describe  those 
implementation  numbers  in  the  range  of  0.1  upto  10“d.  The 
subtractive  factors  of  one  half  and  one  half  times  10“ ( — d— 1 ) 
would  seem  to  represent  the  idea  that  the  numbers  to  be 
included  are  those  which  can  be  rounded  in  the  d+1  th 
significant  digit  to  produce  a number  in  the  range  0.1  to 
10*d  with  d or  fewer  significant  digits. 

The  function  to  convert  a number  to  output  format  is 
implementation  independent.  This  is  possible  because  the 
implementation  number  to  be  output  is  first  converted  to  a 
BASIC  constant.  This  BASIC  constant  can  then  be  transformed 
to  the  appropriate  output  form  using  the  standard 
arithmetic.  Mote  that  the  following  function  converts  the 
implementation  number  to  a canonical  basic  constant. 
Subsequent  functions  are  defined  to  operate  on  canonical 
numeric  constants  to  simplify  the  definition." 


0Pr  numeric-output-representation  (n) 

" { ( $n* ) is-implenentation-n umber}" 
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=>  canonical-number-output-representation  (($n*) 
converted-to-canonical-float)  If. 


#DF  canonical-number-output-representation  (n) 

”{($n$)  i s-canonical-f loat} " 

= > ($n$)  in-output-class-a-format  IflF  ($n$) 
is- in-out put-class- a ; 

= > ( $ ( Snt ) rounded- for- sign  if icance-width-output$ ) 
in-output-class-b-format  IflF  ($n$) 
is-in-output-class-b; 

=>  ($n$)  in-output-class-c-format  #IF  ($n$) 
is-in-output-class-c; 

= > ($n$)  in-output-class-d-format  ^OTHERWISE 


/IDF  output-sign-string(n) 

"{  ($n$)  is-canonical-f loat  }" 

= > it  IF  significand-part(n)  < 0; 

= > #SP ACE  ^OTHERWISE  If. 

"Class  a numbers  are  integers  with  magnitudes  between  0 
and  10“d.  They  are  output  as  sdd...dd  (NR1  format)" 


If DF  i s-in-output-class-a ( n ) 

"{  ($n$)  is-canonical-f loat  }" 

= > flTRUE  # IFF  (Sn.t)  is-canonical-integer  A ( $ 
standard-abs ( n ) , output-class-a-maximum$) 

is-standard-less-than  if. 


If  DF  in-output-class-a-format  ( n ) 

"{  ($n$)  is-canonical-f loat  A (fn$) 
is-in-output-class-a 
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=>  output-sign-string(n)  ACW  #ABS ( signif icand-part ( n ) ) 
itCU  ( $exr  ad-part  ( n ) S ) zeros  />CW  flSPACE  it. 


"Class  b numbers  are  non-integers  with  magnitudes  between 
(approximately)  0.1  and  10“d.  They  are  output  as 
sdd . . . d . dd . . . d (NR2  format)" 


0DF  is-in-output-class-b(n ) 

"{  (Sn$)  i s-canonical-f loat  }" 

= > ffTRUE  #IFF  ( Sstandard-abs ( n ) , 

output-class-b-max imumS ) i s-standard-less-than  A 
IfNOT  ( $standard-abs ( n ) , output-class-b-minimumS  ) 
i s-standard-less-than  if. 


"Class  b rounding  uses  the  p-th-diglt  rounding  function 
defined  for  canonical-form  numbers.  The  rounding  takes 
place  in  the  dth  digit  of  the  significand  of  the  number." 


it DF  rounded- for-significance-width-output(n) 

"{($n$)  is-canonical-float} " 

=>  ($n  , "and-a-p-of " 

implementation-significance-width's) 
rounded-to-p-digits  t . 


it  DF  in-output-class-b-format(n) 

"{  (Snt)  is-canonical-float  A ($n$) 

is-in-output-class-b  A ^LENGTH ( sign i f icand-part ( n ) ) <= 
implemen tat  ion-sign i ficance -width  } " 

=>  output-sign-str ing ( n ) HC W class-b-signi f icand 
(/»ABS(significand-part(n))  , "with-respect-to" 
exrad-part  ( n ) ) it  CW  #SPACE  it. 


0DF  class-b-sign i f icand ( s , e ) 

"{($construct-float(s,e)S)  is-canonical-float  A s > 0 A 
( Sconstr uct-f loat ( s , e ) S ) is-in-output-class-b  A 
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0LENGTH(s)  <=  implementation-significance-width}” 

= > s 4CW  ($e$)  zeros  #CW  • .»  #IF  e >=  0; 

=>  (0LEFT  ( ^LENGTH ( s ) ♦ e)  0CHARACTEPS-OF  s)  OCW 
0CW  (BRIGHT  ( N EG  e)  rtCHARACTERS-OF  s)  #IF 
0>LEMGTH(s)  >=  #NEG  e; 

=>  #CW  significand-part(s)  ^OTHERWISE  9. 

"Class  c numbers  are  numbers  less  than  0.1  that  are 
exactly  representable  in  d digits.  They  are  output  as 
s.dd...d  ( NR2  format)” 


ADF  is-in-output-class-c ( n ) 

”{($n$)  is-canonical-float} " 

= > #TRUE  0IFF  ($standard-abs(n)  , 

output-class-c-max imum$ ) i s-standard-less-than  \ 
($n$)  is-exactly-representable-for-class-c  ft. 


ft DF  is-exactly-represen table- for-class-c(n) 

”{($n$)  is-canonical-float  h 

($standard-abs(n),implementation-one$) 

is-standard-less-than}” 

= > It  TRUE  #IFF  #NE0  exrad-par t ( n ) < = 

implementation-significance- width  9 . 


9DF  in-output-class-c-format(n) 

”{($n*)  is-canonical-float  A (Sn*) 
is-in-output-class-c}” 

=>  output-sign-string(n)  #CW  #CW  ($#MEG 

exr  ad-par t ( n ) - />LEN0TH  ( it  ABS  ( sign! f icand-nar t ( n ) ) ) $ ) 
zeros  *CW  JABS ( sign  if icand-part ( n ) ) 9 CV  #SPACr  A. 


"All  other  numbers  fall  into  class  d.  The  standard 
specifies  a particular  form  of  the  NR3  format  for  this 
output  class.  It  clearly  states  that  the  trailing  zeros  in 
the  significand  are  not  omitted,  but  it  does  not  state 
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whether  leading  zeros  in  the  exrad  may  be  included.  This 
definition  assumes  that  leading  zeros  are  always  suppressed 
in  the  exrad.  The  class  d numbers  are  output  as 
sdd . . .d . dd . . . ddEsee  (NR3  format)" 


ADF  in-output-class-d-format(n) 

" { ( $n$ ) is-canonical-f loat} " 

=>  output-sign-string(n)  ACW  class-d-signi f icand 
( AABSCsignificand-part(n)  ) ) ACW  ' E ’ ACW 
class-d-exrad  ( exrad-par t (n ) , "with-respect-to" 
AABS ( signi f icand-par t ( n ) ) ) ACW  ASPACE  A. 


ADF  class-d-signif icand ( s) 

"{s  AIS  AINTEGER  A s >=  0)" 

=>  f ir st-character-in ( s ) *CM  ' ACW 
all-but-first-character-in(s)  ACW 

($implementation-significance-width  - ALENGTH(s)A) 
zeros  AIF  ALENGTH ( s ) < 
implementation-significance-width; 

= > first-character-in(s)  AC V AC u ( AL^FT 

(implementation-significance-width  - 1) 
ACHARACTERS-OF  al 1-but-fi r st-character- in ( s ) ) 
AOTHERWISE  A. 


ADF  c lass-d-exr ad ( e , "with-respect-to"  s) 

" { e AIS  AINTEGER  A s AIS  AlffTEGER  A s >=  0}” 

= > exrad-output-sign ( e + ALENGTH(s)  - 1)  ACW  ($e 

ALEMGTH(s)  - 1$)  with-leading-zeroes-suppressed  A. 


ADF  exrad-output-sign(e) 
Me  AIS  AINTEGER}" 

=>  AIF  e < 0; 

= > •*.»  AOTHERWISE  A. 
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"The  standard  specifies  the  output  classes  in  terms  of 
two  parameters,  implementation-sip, nif icance-width  and 
the  implementation-exrad-width . The  latter  width  is 
defined  in  the  standard  but  is  never  used.  The 
standard  uses  the  widths  to  define  some  maxima  and 
minima  for  the  various  classes." 

"The  class  a maximum  must  be  1Ed." 


#DF  output-class-a-maximum 
=>  construct-float 

( 1 .implementation-significance-width)  A. 
"The  class  b maximum  must  be  1Ed  - 5E-1." 


0DF  output-class-b-maximum 
=>  construct- float 

( ($implementation-significance-width$)  nines  *CW 
•5* , -1 ) It. 


"The  class  b minimum  must  be  IE-1  - 5F(-d-2)." 


//DF  output-class-b-minimum 
=>  construct-float 

( (5 imnlementation-significance-width$)  nines  *CW 
'5',  #NEG  implementation-significance-width  - 2)  If. 


"The  class  c maximum  must  be  the  same  as  the  class  b 
minimum. " 

#DF  output-class-c-max imum 

=>  output-class-b-minimum  9. 

flDF  nines  (n) 

"In  »IS  *IMTEGFR  0 AND  n >=  0)" 
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"A  standard  arithmetic  is  defined  as  a standard  of 
comparison  for  the  implementation  dependent  arithmetic. 
The  standard  arithmetic  was  defined  to  operate  on  RASIC 
numeric-constants  (see  the  CONTEXT-FREE-SYMTAX 
section).  Defining  arithmetic  on  the  full  range  of 
BASIC  numeric-constants  is  difficult.  Therefore,  a two 
step  approach  is  used.  In  the  first  step(  performed  by 
the  DF  in-canonical-form) , an  arbitrary  BASIC 
numeric-constant  is  transformed  into  another  PASIC 
constant  of  a special  form.  The  arithmetic  operators 
then  calculate  their  results  from  numbers  in  this 
canonical  form.  An  examination  of  the  standard-add  DF 
shows  how  this  two  step  process  works  in  detail.  The 
canonical  form  of  BASIC  numeric-constants  are  defined 
by  the  following  grammar  and  equivalently  by  the  DF 
is-canonical- float. 

ADF  canonical-numeric-constant 
= > ONILSET  ItU 

<,-’>><standard-significand><,F,> 

OPNILSET  ItU  < '-•  >><standard-exrad>  It. 

#DF  standard-significand 

=>  ticoo 

= > <t<#DIGIT>X#DIGIT  # S-  <'(V>>  #. 

It  DF  standard-exrad 

= > %1  <#DIGIT>  It. 

The  value  of  the  canonical  constant  aEb  is 
a * 1 0 “ b . " 


0DF  is-standard-float(n) 

"{n  It  IS  It  STRING}" 

= > #TRUE  0IFF  n #IS  <numer ic-constant>  It. 


It  DF  is-canonical-float(r ) 

" { r 0IS  <numer ic-constant>  )" 

= > 0TRUE  0 IFF  significand-part(r)  #IS  ffIMTEGER  & 
exrad-part(  r ) It  IS  ^INTEGER  * (last-character-in 
(significand-part(r) ) 0NEQW  ’O'  0OR 
sign  i f icand-par  t ( r ) = 0)  It. 


"Converting  an  arbitrary  BASIC  constant  into  canonical  form 
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involves  four  sub-steps.  These  steps  are  tested  and  applied 
one  at  a time.  The  steps  are: 

1.  Append  a ' ^0'  to  the  constant  if  it  does  not 
already  have  an  exrad. 

2.  Remove  any  leading  plus  signs  in  the  exrad  or 
significand . 

3.  Remove  the  decimal  point  from  the  significand. 

This  may  require  adjusting  the  exrad  to  leave 
the  value  of  the  constant  unchanged. 

4.  Remove  any  trailing  zeros  in  the  significand. 

Again,  adjustment  of  the  exrad  may 

be  necessary." 


0DF  in-canonical-form( r ) 

"{r  0IS  <numer ic-constant>  }" 

= > (S(Sr$)  with-exrad-appended$)  in-canonical-form  flIF 
exrad-part ( r ) 0IS  //UNDEFINED  ; 

= > ($($  signif icand-part ( r ) , exrad-part(r ) *) 

wi th- lead ing-pl us- sign s- removed* ) in-canonical-form 
If  IF  first-character-in  ( signi  f icand-part  ( r ) ) AECV 
AOR  first-character-in  (exrad-partf  r ) ) If  FQV 

= > ($(•*  sign  i f icand-part  ( r ) , ex  rad-part  ( r ) S) 

wi th-decimal-point-r emoved$ ) in-canonical-form  -^IP- 
*rs  (/SUBWORD  sign  i f icand-part  ( r ) ; 

= > ($  s igni f icand-part ( r ) , exr ad-par t ( r ) $) 

with-trailing-zeros-removed  If  IF  signi  ficand-part(r) 
AN=  'O'  A last-character-in  (signif icand-part(r 1 ) 
0EQV  'O'; 

= > r //OTHERWISE  If. 


#DF  with-exr  ad-appended  ( r ) 

" { r If  IS  <numeric-constant>  A exrad-par  t ( r ) If  IS 
//UNDEFINED } " 

= > r IfC  W ' E0 ' <f. 


0DF  with-lead ing-pl us-signs-removed  (m  , e ) 
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'Mm  A IS  significand  & e AIS  exrad  h 
f irst-character-in(m)  AEQW  ' + ' AOR 
f irst-character-in( e)  AEQV  ’ + 

=>  construct-f loat(  all-but-first-character-in(m) , 
all-but-first-character-in(e))  aif 
f irst-char acter-in(m)  AEQW  ’+’  & 
f irst-character-in ( e)  AEQW 

=>  construct-f loat(  all-but-f irst-character-in(m) , e) 
AIF  f irst-character-in (m)  AEQW 

= > construct-float(m , all-but-first-character-in(e) ) 
^OTHERWISE  If. 


If DF  all-but-first-character-in(s) 

"{s  A IS  ASTRING  * ALENGTH ( s)  >=  1}” 

=>  ARIGHT  ALENGTH ( s)  - 1 ACHAR ACTERS-OF  s A. 


ADF  with-decimal -point- removed (m  ,e ) 

"{m  AIS  significand  4 e AIS  exrad  A AIS  ASUPWORD  m 

& e AIS  AINTEGER}" 

=>  construct-float  ( ( APREFIX-OF-FIRST  AIN  m)  AC W 

(ASUFFIX-OF-FIRST  AIN  m),  e - ALENGTH 

(ASUFFIX-OF-FIRST  ».»  AIN  m))  If. 


ADF  with-tr ail ing-zer os-removed (m  , e ) 

"{m  AIS  significand  & e AIS  exrad  & 1 ast-character-in 
(m)  AEQW  'O'  & m AIS  AINTEGER  * m AN=  0 A e AIS 
AINTEGER}" 

= > construct-float  (($m*)  wi  thout-trailing-zeros , e + 
ALENGTH (m)  - ALENGTH ( ($m$ ) wi thout-tr ai 1 ing-zeros ) ) 
A. 


ADF  without-trailing-zeros(n) 

Mn  AIS  AINTEGER  A n »Ns  n & 1 ast-char  acter- in  ( n ) A ROW 
• 0 ’ } " 
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=>  ffLEFT  index-of-last-non-zero-in ( n ) 0CHARACTERS-OF 
n* . 


It  DF  index-of-*last-non-zero-in  ( n ) 

"{  n 0IS  ^INTEGER  A n #N=  0 A last-character-in ( n ) *EQW 
• 0 • } " 

= > ffLAST  i : 1 <=  i <=  ^LENGTH ( n ) #S!ICH-THAT  (i 
0TH-CHARACTER-IM  n ffNEQW  'O’)  It. 

"Define  the  selector  and  constructor  functions  for  floating 
point  constants." 

It  DF  significand-part(r) 

"{  r 0IS  <numeric-constant>  }" 

=>  PREFIX-OF-FI RST  'E'  #IN  r It. 


ffDF  exrad-par t ( r ) 

"{r  #IS  <numer ic-constant>  }" 

= > 0SUFFIX-OF -FIRST  * E ' #IN  r If. 


it  DF  construct-float(m,e) 

"{m  It  IS  significand  A e #IS  exrad}" 
r>  m ItC W 'E'  It CW  e It. 

"Define  a predicate  on  the  canonical  form  numbers  which 
is  true  IFF  the  number  represents  an  integer.  Since  a 
canonical  integer  has  a significand  which  has  its  radix 
point  at  the  right,  a canonical  number  will  be  an 
integer  IFF  its  exrad  is  non-negative." 


0DF  is-canoni cal -integer ( n ) 

"{($n$)  i s-canonical-float] " 
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= > #TRUE  #IFF  exr ad-par t ( n ) >=  0 ft  . 

"Define  a rounding  function  on  canonical  form  numbers. 
The  rounding  takes  place  on  the  pth  digit  of  the 
significand  of  the  number ( possibly  extended  with  zeros 
to  at  least  p digits).  The  result  is  a canonical 
number  with  p or  fewer  digits  in  the  significand." 


ft DF  r ounded-to-p-digits(  n , p ) 

”{(Sn$)  is-canonical-float  A p 4IS  0 INTEGER  A p > !)}" 

=>  ($ C$ canonical-add ( n , rounding-factor-for ( n , p ) ) , p$) 
truncated -after-the-p-th-digitH)  in-canonical- form 
ft. 


ftDF  r ound ing-f actor-for ( n , p) 

"{($n$)  is-canonical-float  A p ftlS  ^INTEGER  A p > 0}" 

=>  construct-f loat  ( sign-string ( signi ficand-part ( n ) ) 
#CW  5,  exrad-part(n)  + 

^LENGTH ( ft ABS( sign i f icand-par t ( n ) ) ) - p - 1)  ft. 

0DF  truncated-after-the-p-th-digit(n,p) 

" { ( $n$ ) is-canonical-float  A p #IS  ^INTEGER  A p > 01" 

= > n #IF  #LENGTH(0ABS (significand- pa rt(n)))  <=  p; 

=>  precision-limited  ( signi ficand-part ( n ) , 
exr ad-par t ( n ) , p)  ^OTHERWISE  ft. 

"Define  two  elementary  numeric  functions  on  floating  point 
numbers,  SIGN  and  ABS  functions." 

ffDF  standard-sign ( r ) 

"(r  ftlS  <numer ic-constant>  }" 

= > canonical-sign  ((*rt.)  in-canonical-form)  ft. 
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ADF  canonical-sign ( r ) 

"{($r$)  is-canonical-float}" 

=>  ASIGN(significand-oart(r))  A. 


if  DF  standard-abs  ( r ) 

"{  r 0IS  <numer ic-constant>  }" 

= > canon ical-abs  (($r$)  in-canonical-form)  if. 


if  DF  canonical-abs  ( r ) 

”{($r$)  is-canonical-float}” 

= > construct-float  ( AABS ( sign  if icand-part ( r ) ) , 
exrad-part  ( r ) ) if. 

"Floating  point  addition  is  defined,  if  the  exrads  are 
equal,  as  the  canonical  result  of  adding  the 
significands  to  get  the  result  significand  and  using 
the  common  exrad. 

If  the  two  exrads  are  unequal,  the  number  with  the 
larger  exrad  is  aligned  to  the  smaller  exrad  and  then 
added  as  described." 


tfDF  standard-add ( rx , ry) 

"Irx  tfIS  <numer ic-constant>  A ry  AIS  <numer ic-constant> 


=>  canonical-add  (($rx$)  in-canonical-form,  (*ry$) 
in-canonical-form)  if. 


PDF  canonica 1-add ( rx , ry ) 

"{  ($rx$)  is-canonical-float  A (*ry$) 
is-canonical-float  } " 

= > ( $construct-float  (significand-part(rx ) ♦ 
significand-part(ry)  , exrad-part(rx))$) 
in-canonical-form  *IF  exrad-oart( rx ) = 
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exrad-part( ry ) ; 

=>  canonical-add  ( canonical-align ( r x ,"to" 

exrad-part(ry) ) " ry)  PIF  exr ad-part ( rx ) > 

exrad-part( ry ) ; 

= > canonical-add (rx  " canonical-align(ry  ,"to" 
exrad-part ( rx )) ) POTFLRWISE  P. 


"Floating  point  alignment  is  defined  as  multiplying  the 
significand  by  10  and  decreasing  the  exrad  by  1 until  some 
desired  exrad  value  is  reached." 


PDF  canonical-align(r  ,"to"  e) 

"{r  PIS  <numer ic-constant>  4 e PIS  PINTEOER  ! » < 
exr ad-part ( r ) } " 

=> ; construct-float  (signif icand-part(r ) PCW 

(Sexrad-part(r)  - eDzeros  ,"and  exrad"  e)  P. 


PDF  zeros(n) 

"{n  PIS  PINTEGER  4 n >=  0)" 

=>  PLEFT  n PCH ARACTERS-OF  '0000000000'  PIF  n <=  10; 

= > '0000000000'  PCW  (Sn  - 10^)  zeros  POTMERWISE  P. 

"Floating  point  negation  is  defined  in  the  obvious 
way . " 


PDF  standar d-negate ( r x ) 

"{rx  PIS  <numer ic-constant>  }" 

= > construct-float  (PMEG  sign i f icand-par t ( ( Sr x$  ) 
in-canonical-form) , exr ad -pa rtf (SrxS) 
in-canonical-form))  P. 


"Floating  point  subtraction  is  defined  in  terms  of  negation 
and  addition." 
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ADF  standard-subtract( rx  ry) 

"{rx  It  IS  <numer  ic-constant>  * ry  It  IS  <numer  ic-constant> 
}” 


=>  canon ical- ad d(  ($r x$ ) in-canonical -form, 
standard-negate( ry ) ) A. 


"floating  point  multioly  is  defined  as  the  canonical  result 
of  adding  the  two  exrads  to  get  the  exrad  of  the  result  and 
multiplying  the  two  significands  to  get  the  significand  of 
the  result." 


It DF  standar d-mul t i ply  ( r x , r y 1 

"{rx  AIS  <numer ic-constant>  * rv  AIS  <numer ic-constant> 
>" 

=>  canonical-multiply ( ($rx$)  in-canonical-form,  ($ry$> 
in-canonical-form)  It. 


ADF  canonical-multipl v(rx ,ry) 

" { ( $r x$ ) is-canonical-f loat  l (SryS) 
is-canonical-float}" 

= > (f. construct-float  (significand-part(rx)  * 

signif icand-part( ry)  , ex r ad-Dar t ( r x ) + 
exr ad-part ( ry )) S ) in-canonical-form  A. 


"Floating  point  division  is  the  most  complex  of  the  floating 

point  operations.  Leaving  aside  some  detail,  the  division  i 

result  is  the  canonical  result  of  dividing  the  dividend 

significand  by  the  divisor  significand  to  get  the  result 

significand  and  subtracting  the  divisor  exrad  from  the 

dividend  exrad  to  get  the  result  exrad.  Division  by  zero 

will  result  in  A()NDFFTMrn  being  returned.  The  extra 

complication  with  division  is  the  desire  to  specify  the 

precision  of  the  result.  As  an  example  suppose  1 is  divided 

by  3 to  a precision  of  2 significant  digits.  The  result 

should  be  33F-2.  To  do  this,  the  significand  is  multiplied 

by  1 0“ ( p-1 +d  1 ) where  p is  the  desired  precision  and  dl  is 

the  length  of  the  magnitude  of  the  divisor.  'rhe  exrad  is 
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changed  to  e - p + 1 - dl.  This  shifting  is  to  guarantee 
that  the  result  of  the  division  will  have  at  least  p digits. 
The  division  is  performed  and  the  result  is  then  realigned 
to  have  exactly  p digits  of  precision.  Then  that  result  is 
canon icalized . " 


Z DF  standard-divide(rdividend, rdivisor, precision) 

"{rdividend  //IS  Cnumer ic-constant>  4 rdivisor  ZIS 
<numer ic-constant>  ft  precision  //IS  //INTEGER  4 precision 
>0}" 

= > canonical-divide(  ( Srd i videndS  ) in-canonical-form, 
(SrdivisorS)  in-canonical-form,  precision)  if. 


ZDF  canonical-divide (rdividend, rdivisor, precision) 

" { ( Srdi videndS ) i s-canonical-f loat  4 (SrdivisorS ) 
is-canonical-float  4 precision  *IS  ■/INTEGER  4 precision 
>0}" 

= > //UNDEFINED  //IF  significand-part(rdivisor ) = 0; 

=>  ( Sprecision-limited  ( (signif icand-part(rdividend ) 

ZCV  (Sprecision  - 1 + 
divisor-length(rdivisor)fc)zeros)  / 

signi f icand-par t ( rd i v i sor  ) , exrad-part(rdividend  ) - 
precision  + 1 - divisor-length(rdivisor ) - 
exrad-part(rdivisor)  ."limited  to"  precision)$) 
in-canonical-form  ./OTHERWISE  Z. 


ZDF  divisor-length(r ) 

"{($r$)  i3-canonical-float)" 

= > /LENGTH  ( ZABS  ( s ign i f icand-par t ( r )) ) Z. 

"precision-limited  constructs  a non-canonical  floating 
point  number-  whose  significand  has  a specified 
precision  from  another  number  (represented  by  m and  e) 
with  a larger  precision.  This  is  done  using  truncation 
and  not  rounding." 


Z DF  precis  ion-1 imi ted (m , e ."limited  to"  precision) 


• — 


«pwp mum**™* 
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"{m  AIS  AINTEGER  A e AIS  //INTEGER  & p AIS  AINTEGER  4 p 
> 0 i ALENGTH( AABS(m)  ) >=  p}" 

=>  construct-float  (sien-string(m)  ACW  (ALEFT  Drecision 
ACH ARACTEPS-OF  A ABS(rn))  ,"and  exrad"  e + 
ALENGTH(AABSCm) ) - precision)  It. 


"The  sign  string  of  a number  is  the  string  representing  its 
sign.  The  sign  string  of  a negative  number  is  zero  or 

positive  has  a ANIL  sign  string" 


A DF  sign-string(r ) 

"(r  AIS  <numer ic-constant>  }" 

=>  //IF  first-character-in  (r)  AEQ W 

= > ANIL  //OTHERWISE  It. 


"COMMENT:  A partial  set  of  relational  operators  is 
defined  on  floating  point  numbers." 


A DF  i s- stand ard-zero(n) 

"{  n A IS  <numer ic-constant>  )" 

= > ATRIJE  AIFF  sign i f icand-part ( (Ain*) 
in-canonical -form)  = 0 It . 

ADF  is-stardard-negative(n) 

"In  AIS  <numer ic-constant>  }" 

=>  ATRUF  AIPp  significand-part(  ( *n* ) 
in-canonical-form)  < 0 It. 

"The  positive  test  does  not  include  zero." 


ADF  is-standard-positive(n ) 
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"{  n *IS  <numer ie-constant> 

= > 0TRUF  AIFF  significand-part(  (*n$) 
in-canonical-form)  > 0 A. 


0DF  are-standard-equal (a, b) 

"{  a A I s Cnumer  ic-constant>  ft  b *IS  <numer  ic-constant> 
>" 

=>  #TRUE  frIFF  ($  standard-subtract(a.b)  S) 
is-standard-zero  0 . 

ADF  i s-standard-less-than ( a b) 

"{  a »IS  <numer ic-eonstant>  ft  b -?IS  <numer ic-constant> 
}" 

= > ATRUE  0IFF  ( Sstandard-subtr act ( a , b) $ ) 
is-standard-negati ve  9. 
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#DF  is-standard-greater-than( a b) 

"{  a *IS  <numer ic-constant>  ft  b 4IS  <numer ic-constant> 

)" 

= > ATRUE  flIFF  ( $ standar d-subtr act ( a , b) * ) 
is-standard-positive  A. 

I 
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//DF  i s-str ing-ex pression ( exp ) 

"{  exp  //IS  <expression>  }" 

= > //TRUE  //IFF  exp  //IS  //CASE  1 //OF  <expression>  ft. 

if DF  str ing-expression-of (exp) 

"{  (Sexp$)is-string-expression  }" 

= > if  SEG  1 If  OF  exp  ft . 

//DF  is-numer ic-exDression(exp) 

"{  fxp  if  IS  <exDression>  }” 

= > //TRUE  //IFF  exp  If  IS  //CASE  2 //OF  <expression>  if. 

if  DF  numer  ic-ex  press  ion-of  ( exp) 

" { (Sexpt)  is-numeric-expression  "OR 
exp  //IS  <tab-call>  } " 

= > If  SEG  1 If  OF  exp  //IF  ( $exp* ) is-numeric-expression  ; 
= > it  SEG  5 If  OF  exp  if  IF  exp  //IS  <tab-call>  ft . 

//DF  i s-str  ing-vari  able  (exp) 

"{  exp  fIS  <str ing-expr ession>  }" 

= > //TRUE  //IFF  exp  '/IS  //CASE  1 ftOF  <string-expression> 

ft. 

"DF  string -variable-of(exp) 

" { (SexpSKs-strins-variable  ) " 

= > '/SEG  1 If  OF  exp  ft. 
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ADF  is-string-constant(exp) 

"{  exp  AIS  <str ing-exor ession>  }" 

= > ATRUE  AIFF  exp  ^ I S ACASE  2 AOF  <str ing-expression> 
A. 


ADF  str ing-constant-of ( exp) 

" { ($exp$ ) is-str ing-constant  } " 
=>  ASEG  1 AOF  exp  It. 


ADF  operand-1-of ( x ) 

"{  x It  IS  <expression>  AU  <numeric-expression>  AU 
<positive-expression>  ItU  <negation>  AU  <sum>  It U 
<difference>  AU  <term>  AU  <product>  AU  <quotient>  AU 
< factor > ItU  <involution>  AU  <relational-expression>  AOR 
( $x$ ) is-parenthetical  }" 

=>  ASEG  3 AOF  x AIF  x AIS  <positive-expression>  AU 
<negation>  AOR  (* x$) is-par enthetical ; 

= > ASEG  1 AOF  x AOTHERWISE  It. 


It DF  is-parenthetical  (exp ) 

"{  ( $exp$ ) is-numer ic-suhnode  1” 

= > ATRUE  A IFF  exp  AIS  ACASE  U AOF  <primary>  It. 


ADF  operand-2-of ( x ) 

"{  x AIS  <sum>  AU  <difference>  AU  <product>  AU 
<quotient>  AU  <involution>  *11  <relational-expression> 
}” 

=>  ASEG  5 AOF  x A. 

ADF  is-numeric-defined-function-ref(ref) 

Mref  AIS  <numer ic-funct ion-ref >} " 
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= > # TRUE  #IFF  ref  /'IS  "CASE  1 //OF 
<numer ic-function-ref>  " . 

If DF  numeric-defined- function-ref-of(ref) 

" { ( $r ef $ ) i s-n umer ic-def ined-f unction-ref}" 

= > 9 SEG  1 //OF  ref  If. 

It  DF  numeric-suppli  ed-f  unction-ref -of(  ref) 

" { ( $r ef $ ) i s-numer ic-suppl ied-f unct ion-ref } " 

= > If  SEG  1 If  OF  ref  If. 

If  DF  numeric-defined-function-name-of(dref) 

"{dref  //IS  <numeric-defined-function-ref>}" 

= > If  SEG  1 If  OF  dref  If. 

If  DF  has-an-argument  ( ref ) 

"{ref  IflS  <numer ic-def ined-function-ref>  911 
<numer ic-suppl ied-f unction-ref > } " 

= > If  TRUE  //IFF  ref  If  IS  //CASE  2 9 OF 

<numer  ic-def  ined-f  unct  ion-ref  > AOR  ref  //IS 
<numer ic-supplied-function-ref > AANP  ref  AIS-MOT 
If  CASE  7 //OF  <numer  ic-suppl  ied-f  unct  ion-ref>  A . 

It  DF  argument-expr  ession-of  ( ref ) 

"{ref  //IS  <numer ic-def ined-function-ref > /ZU 
<numeric-supplied-function-ref>1" 

= > //SEG  1 //0F\  (//SEC  3 90  F (/'SEG  3 AOF  ref))  9 . 

//DF  def-statement-expression-of(def) 

"{def  AIS  def-statement } " 
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= > ASEG  7 AOF  def  AIF  def  AIS  ACASE  1 AOF 
<def-statement>  ; 

i 

= > ASEG  9 A OF  def  ^OTHERWISE  A. 

1 

1 

I 

ADF  def-statement-parameter-of ( def ) 

" { ( Sdef $ ) is-def-s t a tement-with-par ameter } " 

= > ASEG  3 9 OF  (ASEG  5 AOF  def)  A. 

ADF  is-def -st at ement-with-par ameter (def) 

"(  def  AIS  ANODE } " 

=>  ATRUE  AIFF  def  AIS  ACASE  2 AOF  <def-statement>  9. 

ADF  def-statement-name-of (def ) 

"{  def  AIS  <def-statement>  }" 

=>  ASEG  3 AOF  def  A. 

ADF  is-abs-function-ref ( sref ) 

"{sref  AIS  <numeric-supplied-function-ref>}" 

=>  ATRUE  AIFF  sref  AIS  ACASE  1 AOF 
<numeric-supplied-function-ref>  A. 

I 

ADF  is-atn-function-ref ( sref ) 

"{sref  AIS  <numeric-supplied-function-ref >}" 

=>  ATRUE  AIFF  sref  AIS  ACASE  2 AOF 
<numer ic-su pplied-f unction -ref > A. 

ADF  is-cos-function-ref ( sref ) 

"{sref  AIS  <numer ie-suppl ied-funct ion-ref >} " 
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= > ATRIJE  AIFF  sref  AIS  ACASE  3 AOF 
Cnumer ic-suppl ied -function-ref > It. 

It DF  is-exp-function-ref  ( sref ) 

"{sref  AIS  <numeric-supplied-function-ref>}" 

= > ATRUE  AIFF  sref  AIS  ItC ASE  4 AOF 
<nume r ic-suppl ied-functi on -ref>  A. 

ADF  is-int-function-ref ( sref ) 

"{sref  AIS  <numer ic-suppl ied-function-ref >} " 

= > ATRUE  A IFF  sref  AIS  ACASE  5 AOF 
<numer ic-suppl ied- function-ref > A. 

ADF  i s-log-f unction-ref ( sref ) 

"{sref  AIS  <numeric-supplied-function-ref> }" 

- > ATRUE  AIFF  sref  AIS  ACASE  6 AOF 
<numer ic-suppl ied-function-ref > A . 

ADF  is-rnd-function-ref (sref ) 

"{sref  AIS  <numeric-supplied-function-ref>}" 

=>  ATRUE  AIFF  sref  AIS  ACASE  7 AOF 
<numer ic-suppl ied-f unction-ref > A. 

ADF  is-sgn-function-ref ( sref ) 

"{sref  AIS  <numeric-supplied-function-ref>}" 

=>  ATRUE  AIFF  sref  AIS  ACASE  « AOF 
<numer ic-suppl ied-f unction-ref > A. 

ADF  i s-sin-function-ref ( sref ) 

"{sref  Ais  <numeric-supplied-function-ref>}" 


Specification  of  BASIC 
Semantic  Definitions 


01/29/77 
SEMAHOL  Project 
Syntactic  Selectors 


= > ATRUE  0 IFF  sref  AIS  ACASE  0 If  OF 
<numer ic-suppl ied-function-ref > If . 


ADF  is-sqr-function-ref ( sref ) 

"{sref  AIS  <numer ic-suppl ied-function-ref >} " 

= > ATRUE  AIFF  sref  AIS  ACASE  10  If  OF 
<numer  ic-suppl  ied-function-ref  > If . 

ADF  is-tan-function-ref ( sref ) 

"{sref  AIS  <numer ic-suppl ied-function-ref >} " 

= > ATRUE  AIFF  sref  AIS  A CASE  11  AOF 
<numer  ic-suppl  ied- function-ref  > If . 

if DF  nameable-part-of ( node) 

"{  node  If  IS  <variable>  AU  <control-var  iable>  AU 
<string-var iable>  AU  <numer ic-variable>  au 
<simple-numer ic-variable>  AU  <numer ic-ar ray-element> } " 

= > node  If  IF  node  If  IS  <3tr  ing-var  iable>  IfU 

<simple-numer ic-var iable>  AU  <numer ic-array-element> 
J 

= > ASEG  1 If  OF  node  AIF  node  HIS  <numer  ic-variahle>  ; 

= > nameable-part-of ( ^SEG  1 AOF  node)  AIF  node  ATS 
<control-var iable>  All  <variable>  if. 

ADF  numer ic-ar ray-name-of ( node) 

"{  node  AIS  <numer ic-arr ay-element>  All 
<array-declaration>  )" 

=>  ASEG  1 AOF  node  A. 

ADF  subscr ipt-part-of (node) 

"{  node  A IS  <numer ic-arr ay-element>  }" 
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= > ASEG  3 toe  node  * . 

ADF  bound s-pa rt-o f ( node  ) 

"{  node  //IS  <array-declaration>  }" 

= > ASEG  5 Me  node  A. 

ADF  f irst-dimension-bound-of (b) 

"{  b //IS  <bounds>  }" 
r>  ASEG  1 A or  b A. 

ADF  has-one-dimension(b) 

"{  b AIS  <bounds>  /*  U <subscript>  } " 

= > ATRUE  //IFF  b ATS  ACASE  1 AOF  <bounds>  A0p  b ATS 
ACASE  1 A0C  <subscript>  A. 

//DF  second-d imension-bound-of ( b ) 

" { ($b$)  has-two-dimensions  } " 

=>  AS EG  5 AOF  b A. 

ADF  h as-two-d imens ions ( b ) 

"{  b ais  <bounds>  Aij  <subscript>  ' " 

=>  ATRUE  A I^F  b AIS  ACASE  2 AOF  <bounds>  *07  b ATS 
ACASE  2 AOF  <subscriot>  A. 

ADF  first-dimension-of ( s) 

" { s AIS  <subscript> 

:>  ASEG  3 AOF  S A. 

ADF  second-d i men s ion-of ( s ) 
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" { ($s$)  has-two-dimensions  }" 

= > It  SEC  7 It  OF  s It . 

#DF  option-base-of (opt) 

"{  opt  *IS  <option-statement>  }" 

= > It SEC  3 #0F  opt  It. 

4 

I 

*DF  relation-of  (rel-exp) 

"{rel-exp  tfIS  <relational-expression>  }" 

= > ItSEG  3 *0F  rel-exp  #. 

It DF  is-numer ic-relational-expr ession  (rel-exp) 

"{rel-exp  #IS  <relational-expression>  }" 

= > #TRUE  #IFF  rel-exp  #IS  "CASE  1 It  OF 
<relational-expression>  It. 

It  DF  is-string-relational-expression  (rel-exp) 

"{rel-exp  ffIS  <relational-expression>  )” 

= > OTRUF  #IFF  rel-exp  #13  *CASE  2 It  OF 
<rel ational-expr ession>  It. 

#DF  r elational-expression-of  (stmt) 

"{stmt  #IS  <if-then-statement>  )" 

= > //SEC  3 It  OF  stmt  * . 

0DF  li ne-number-part-of  (In  ) 

"{In  It  IS  <line>  )" 

= > #SFG  1 It  OF  In  It. 
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ODF  dest i nat ion-1  i ne-numher-of  (stmt) 

"{stmt  OIS  <ROto-statement>  AU  < eosub-statement>  O') 
<if-then-statement>  }" 

=>  last-seR-of  (stmt)  0. 


ODF  index-expression-of  (stmt) 

:,{stmt  OIS  <on-goto-statement>  }" 

= > OSEG  3 OOF  stmt  0. 

ItDF  last-sep,-of  (nx) 

"{//SEG-COUNT  (nx)  > 0 }” 

=>  It SEG  (OSFG-COUNT  (nx))  OOF  nx  0. 

ODF  i s-non-executable ( stmt ) 


"{stmt  OEQ  current-statement}" 

= > OTRIJE  0 IFF  stmt  OIS  <data-statement> 

Oil  <def-statement> 

It  U <dimension-statement> 
O')  <option-statement> 

It )J  <randomi7e-statement> 
It U <remark-statement>  0. 


ODF  is-simple-control-statement(stmt) 

"{stmt  OFQ  current-statement}" 

= > OTRUE  0IFF  stmt  nIS  <ROto-statement> 

0U  < i f-then-statement> 

IfU  <on-goto-statement> 

0U  <return-statement>  0. 


ODF  control-var iable-in ( stmt) 
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"{stmt  AIS  <for-statement>  AU  <next-statement>  }" 
= > ASEG  3 A OF  stmt  A. 

ADF  initial-value-part-of-for(stmt) 

"{stmt  AIS  <for-statement>  }" 

= > ASEG  1 AOP  (ASEG  7 iTOF  stmt)  A. 

ADF  1 imi t-part-of-for ( stmt ) 

"{stmt  A IS  <for-statement>  )" 

=>  ASEG  1 AOF  ( ASEG  11  AOF  stmt)  A. 

ADF  increment-part-of-for ( stmt) 

"{stmt  AIS  < for-statement>  }” 

=>  ASEG  1 AOF  (ASEG  IS  AOF  stmt)  A. 

ADF  i s-quoted-str ing ( d ) 

"{d  AIS  <datum>  }" 

=>  ATRUE  AIFF  d AIS  ACASE  1 AOF  <datum>  A. 


ADF  i s-numer ic-var iable( v ) 

"{v  AIS  <variable>  }" 

=>  ATRUE  AIFF  v AIS  ACASE  1 AOF  <variable>  A. 

ADF  left-hand-side-of ( stmt) 

"{stmt  AIS  <numer ic-let-statement>  A'J 
<str  ing-let-statement>  )" 

= > ASEG  3 AOF  stmt  A. 

I 

L. 
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//PF  r ight-hand-side-of ( stmt ) 

"{stmt  //IS  <numer ic-let-statement>  Ifl) 
<str ins?-let-statement>  }" 

= > IfS^G  7 no*  stmt  If. 


I> DF  is-not-a-control-statement(stmt) 

"{stmt  If EO  current-statement)" 

= > //TRUE  //IFF  stmt  0IS  <input-statement> 

If U <numeric-let-statement> 
If U <strinff-let-statement> 

If U <print-statement> 

If IJ  <read-statement> 

#U  <restore-statement> 

If  OR  ( $ s t m t $ ) is-non-executable  <f . 


//DF  statement-par t-of  ( In  ) 

"{In  IflS  < 1 ine>  }" 

= > //SEG  1 //OF  (#SEG  3 //OF  In)  if. 
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"In  order  for  a specification  of  an  implementation  of 
BASIC  to  be  complete,  The  implementor  must  define  his 
implementation  dependent  number  representation  and  the 
implementation  dependent  arithmetic  operations  upon 
those  numbers.  The  following  definition  is  meant  to 
serve  as  a Ruide  for  other  implementors.  This 
definition  was  chosen  to  use  the  minimal  parameters 
specified  by  the  BASIC  standard.  In  particular  the 
base  machine  is  considered  to  use  decimal  floating 
point  numbers  with  six  decimal  digits  in  the 
significand  and  two  decimal  digits  in  the  exrad.  The 
range  of  the  magnitude  of  legal  values  is  1 F 3 3 down  to 
IE-38  (inclusive  at  both  boundaries). 

It  should  be  noted  that  only  one 
implementation-precision  is  defined.  It  is  assumed 
that  the  actual  orecision  of  the  'machine'  is  the  same 
as  the  precision  of  the  results  of  arithmetic  operators 
and  the  result  of  converting  a BASIC  constant  to  an 
implementation-number . " 


"Define  the  legal  form  of  an  implementation  number. 

For  purposes  of  this  sample  implementation,  we  choose 
to  use  the  floating  point  definitions  defined  by  the 
standard  representation  and  the  operations  defined  upon 
that  representation.  However,  we  will  modify  this 
representation  to  require  that  the  numbers  have 
significands  of  no  more  than  six  digits.  It  is 
strongly  recommended  that  the  reader  be  familiar  with 
the  operation  of  the  standard  floating  point 
functions . " 


ODF  is-implementation-number (n ) 

= > 0TRUE  0 IFF  ($n$) is- canonical-float  A 
OLE  NOTH  (OABS(significand-part(n) ) ) < = 
implementation-precision  A 0M0T  ( $ st andar d-abs ( n ) $ ) 
is-an-over flow  A ONOT  ( Sstandard-abs ( n ) S ) 
is-an-under flow  0. 


"For  many  parts  of  the  basic  specification,  it  is  important 
to  know  if  an  implementation  number  represents  an  integer. 
Because  an  implementation  number  is  a canonical  number,  it 
cannot  have  any  trailing  zeros  in  its  significand. 
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Therefore,  it  can  only  be  an  integer  if  its  exrad  is  greater 
than  or  equal  to  zero." 


ADF  is-implementation-integer(n) 

"l  ($n$)is-implementation-number  }" 

= > //TRUE  //IFF  e x r ad-oa r t ( n 1 >=  0 // . 

"Certain  auxiliary  DFs  must  he  defined  to  operate  on  a 
superset  of  the  impl ementat ion-number s . In  particular, 
those  DFs  which  do  range  checking  and  limiting  of 
precision." 


"Define  a function  to  test  for  an  implementation  number 
greater  than  plus  infinity  or  less  than  minus 
infinity." 


-7DF  is-an-over  f low(  n ) 

"{($n$)  i s-standard-f loat 1 " 

= > //TRUE  //IFF  ( $ implementation- in  f in  i tv  , 

standard-abs ( n ) * ) i s-standard-less-than  n . 


"Define  an  underflow  test." 


/*DF  is-an-under  flow(  n ) 

"{($n$)  i s-standard- float } " 

= > //TRUE  //IFF  AVOT  ( tn*  ) i s-standar  d-zero  A 

( $standard-abs(n)  , implementation-infinitesimals) 
is-standard-less-than  A . 


"Define  a function  to  truncate  the  significand  of 
a number  to  the  implementation-precision,  with  proner 
exponent  adjustment." 


ADF  limited-to- impl ementat ion -precis ion (n) 
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"{($n$)  is-standard-float)" 

= > n A IF  />LENGTH(#ABS(significand-part(n)  ))  <r 
implementation-precision; 

=>  construct-float(  s ign-str ing ( s ign i f icand-par t ( n ) ) 

IIC W (0LEFT  implementation-precision  #CHARACTERS-OF 
If ABS ( sign i f icand-par t ( n )))  , exr ad-par t ( n ) ♦ ^LENGTH 
(ffABS  ( sign i f icand-part ( n ) ) ) - 
implementation-precision)  ^OTHERWISE  // . 


"Define  whether  the  implementation  detects  underflow  for  the 
purpose  of  reporting  a non-fatal  error." 


ADF  under flow-i s-a-detected-non-f atal-er r or 
= > #TRUE  If. 


"Each  implementation  arithmetic  operator  requires  a 
group  of  related  implementation  functions  to  test  for 
overflow,  underflow,  etc,  and  one  to  perform  the 
operation  . " 

If  DF  result  s-in-negate-overflow(  a) 

"{  ( $at ) is-implementation-number  ) " 

=>  0FALSE  H. 

If  DF  non-  f at  al-negate-over  flow-error-report 

= > non-fatal-error  ('  negate  overflow')  If. 


If  DF  negate-over  flow-result- sign  ( a ) 

"{  ($a$)  is-implementation-number  A ffNOT 

implement at  ion-equal s-test( a, implementation-zero)  )" 

=>  #IF 

implementation-greater-than-test ( a, implementation-zero) ; 
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implementation-less-than-test(a,implementation-zero) 

ft. 


ftDF  results-in-negate-underflow(a) 

"{  ( $a$ ) is-imp1 ementat ion-number  }" 
- > 0FALSE  //. 


//Dr  non-fatal-negate- underflow-error-report 

=>  non-fatal-er ror (' negate  underflow')  ft. 


ftDF  implementation-negate(a ) 

" { ( $ a$ ) is-implementation-number  )" 

=>  ($standard-negate(a)$) 

limited-to-implementation-precision  ft . 

"The  techniques  used  in  implementation  of  addition  and 
especially  in  underflow  and  overflow  detection  are 
quite  general  but  are  not  strictly  similar  to  the  way 
in  which  a real  machine  might  do  things.  In 
particular,  since  large  precision  operations  are 
available,  the  easiest  way  to  test  for  overflow  is  to 
perform  the  exact  addition  and  test  the  result  for  out 
of  range." 


ftDF  results-in-add-overflow(a,b) 

"{  ($a$ ) is-implementation-number  A 

($b$) is-implementation-number  1" 

=>  AT  RUE  A IFF  (7  standard-add(a,h)  $)is-an -overflow  ft . 


ftD^  non-fatal-add-overflow -error-re port 

=>  non-fatal-error (' add  overflow')  ft. 


ftDF  add -overflow -result-si gn(a,b) 
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"{  ($aS)  is-implementation-number  A AMOT 
implementat ion-equal s-test(a, implementation-zero ) A 
($b*)  i s-implementation-number  A AMOT 
impl ement at  ion-equal s- test ( b , implementation-zero)  ) " 

=>  ’ + • AIF 

implement ation-gr eater- than- test ( a , implementation-zero) ; 
=>  ' AIF 

impl ement at ion-less- than- tes t ( a , implementation-zero) 

A. 


ADF  results-in-add-underflow(a,b) 

"{  ($aS ) is-implementation-number  A 
( $b$ ) is-implementation-number  ) " 

= > ATRUE  AIFF  ($  standard-add( a ,b)  $)is-an-underflow  A. 


ADF  non-fatal -add-under flow- error-re port 

= > non-fatal-error (' add  underflow')  A. 


ADF  implementation-add ( a , b) 

”{  ( $a$ ) is-implementation-number  A 
($b$ ) is-implementation-number  } " 

= > ( $standard-add ( a , b ) $ ) 

limited- to- impl ement at  ion-precis  ion  a . 


ADF  results-in-subtract-overflow(a,b) 

"{  ( $a$ ) is-implementation-number  A 
( $b$ ) is-implementation-number  } " 

=>  ATRUE  AIFF 

($standard-subtract(a,"-"b)$)is-an -over  flow  n . 


ADF  non-f atal-subt r act-over  flow-error -report 

= > non-f atal-error (' subtract-over  flow ' ) A. 
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A DF  sub  tract-overflow -result- sip,n(a,b) 

"{  (Sat)  i s- impl  emen  tat  ion-number  f,  0‘1OT 
implementation-equals-test( a, implementation-zero)  A 
(Sb$)  is-implementation-number  K MOT 
impl ementat ion-equal s-test(b,imolemen tat  ion-zero)  1" 

= > ' ♦ ' A IF 

implementation-preater-than-test( a,imnlementation-zero) 
=>  ' - ' IfJF 

implement at ion- less- than- test( a , imol emen tat  ion -zero) 

#. 


APP-  results-in-subtract-underf]ow(a,b) 

"{  (SaS ) is-implementation-number  K 
( $b* ) is-implementation-number  } " 

= > If TRUE  #IFF 

(Sstandard-subtract(a,"-"b)*)is-an-underflow  f . 

If  DF  non-f  at  al  -sub  tract-  under  flow  -error-  report 

- > non-fatal-error  (' subtract  underflow')  If. 


!f DF  implementation-subtract(a,b) 

" t ( SaS ) i s-impl emen tat  ion-number  * 

( SbS ) is-implementation-number  } " 

=>  ($standard-subtract(a,b)S) 

limited-to-imDlementation-precision  !i . 


If  DF  results-in-multiply-overflow(a,b) 

"{  ( Sat ) is-implementation-number  ^ 

(SbS) is-implementation-number  1" 

=>  ATRUF  f IFF  ( Sstandard-mu 1 t ipl v ( a , b ) * ) i s-an-over f low 
if . 
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#DF  non- fatal-multi  ply-over  flow-error -report 

= > non-fatal-er ror (' multiply  overflow')  if. 


#DF  multi ply-over  flow-result-sign (a ,b) 

"{  ($at)  is-implementation-number  & ffMOT 

implement at  ion-equal s- test( a, implementation-zero)  A 

(Sb$)  is-implementation-number  A #MOT 

implement at  ion -equals- test (b .implementation-zero)  } " 

=>  #IF 

impl ementation-gr eater- t han- tes t ( a, implementation-zero) 
ff  IFF 

implementat ion -greater- than- test ( b .implementation -zero) ; 
= > ’ #IF 

implementation-less-than-test( a, implementation-zero) 

0IFF 

implementat ion-gr eater- than-test ( b , implementat ion -zero) 
If. 


If Dr  r esults-in-mul t iply-underflow(a.b) 

"{  ($a$ ) is-implementation-number  A 
($b$ ) is-implementation-number  }" 

=>  tfTRUF  ^IFF  (*standard-multiply(a,b)$) 
is-an-under f low  f. 


If  DF  non -fatal -multi  plv-under  flow -error-re  port 

= > non-fatal-error( 'multiply  underflow*)  If. 


If  DF  implementat  ion-mult  ipl  y ( a , b ) 

"{  ( $a$ ) is-implementation-number  & 

($b$) is-implementation-number  }" 

= > ( $standard-mul t iply ( a , b) S ) 

limited-to-implementati  on -precis  ion  if . 
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non-fatal-divide-by-zero-error-report 
= > non-fatal-error( 'division  by  zero')  V . 


divide-by-zero-result-sign( numerator) 

"{  ( Snumer atorS ) is-ixplementation-nuxber  1" 

= > ' + ' If  IF 

implementation-greater-than-test( numerator, impl ex entation-zero); 
= > ' + ' If  IF 

implementation-equals-test(nuxerator,ixplexentation-zero); 

= > ' - ' If  IF 

imDl exen t at  ion-1 ess-than-tes t(nux era tor, impl exen tat  ion -zero) 

■i. 


results-in-divide-overflow(a,b) 

"{  ( $aS ) is-implementation-number  & 
($b$)is-implementati on -number  } " 

= > If  TRUE  IFF  ($standard-divide(a,b  , "to" 

implementation-precision  ) S ) is-an-over  f low  If. 


non- fatal -divide-over  flow-error-report 
= > non-fatal-error  (' divide  overflow')  if . 

di v id e-over  f low-r esul t-si gn ( a , b ) 

"f  (SaS)  i s- imol ementat  ion -number  & //MOT 

impl ementation-equals-test(a, implementation- zero)  \ 

(Sbt)  i s- impl ementat ion-number  *t  //MOT 
implementation-equals-test(b, implementation- zero)  } " 

= > ' ^ ' n tf 

implementation-greater- than-test(a,imolementat ion-zero) 

If  IFF 

impl ementation-greater-than-test(b, implementation -zero); 

= > ' - ' if  IF 

impl ementat ion  - 1 ess- than- test ( a , imol ementat ion -zero ) 
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# IFF 

implement at ion-not-less- test ( b , implementation-zero) 
It. 


0DF  results-in-divide-underflow(a,b) 

"{  ( $a$ ) is-implementation-number  4 
($b$) is-implementation-number  }" 

=>  #TRUE  //IFF  ($standard-divide( a ,b  ."to” 

implementation-precision)?:)  is-an-underf low  It. 


/IDF  non-fatal-divide-under  flow-error-report 

= > non-fatal-error  ( 'divide  underflow')  It. 


0DF  implementat ion-divide ( a , b) 

"{  ($a$ ) is-implementation-number  4 
( $bi ) is-implementation-number  } " 

=>  standard-divide( a f b ,"to”  implementation-orecision ) 
it. 

"The  definition  of  involution  is  very  difficult.  In 
order  to  handle  the  function,  an  external  function  is 
postulated  which,  for  suitably  restricted  arguments, 
can  return  a result  of  more  precision  than 
implementation-Drecision . The  external  function  will 
never  return  zero. 

For  the  purposes  of  this  example  implementation, 
the  domain  of  the  involution  function  is  split  into 
several  parts.  This  allows  at  least  some  test  cases  to 
involve  the  involution  operator  without  involving  the 
external  function.  With  that  in  mind,  0“x  for  any  x is 
defined  as  1.  x“0  for  any  x ia  also  1.  Further,  x-y 

for  0<v<=integer-exponentiation-limit  and  v an  integer 
is  performed  using  multiplication." 


It DF  special-involute(  a , b) 

"{  ( $a$ ) i3-implementation-number  4 
( $b$ ) is-implementation-number  ) " 
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:>  implementation-one  /'IF  standard-sign  ( a ) = 0 HOP, 
standard-si gn(b)  = 0; 

=>  standard-multiply( a , spec i al -in volute ( a , 

standar  d-subtr  act  ( b , imnlementation-one  ) ) ) "IF  (^b'S) 
is-implementation-integer  & 
($b$)is-in-integer-exponentiation-limit; 

: > (J//EXTERMAL-CALL-OF  ’involute'  /'WITH- A R0UMFVT 
( \ ( /*:  a ) in-external-format,  (7b.1?) 
in-external-format\)*) 

con verted-from-exter nal-format  /'OTHERWISE  /' . 


If DF  is-in-integer-exponentiation-limit(n) 

" {($n*)is-implementation-number)" 

= > //TRUE  4IFF  /'NOT  ($n,  integer-exponentiation-limit^ ) 
is-standard-greater-than  /'. 


If  DF  integer-exponentiation-limit 
= > ’ 5E0  ’ If. 


If  DF  non  - fatal-zero- involuted-to-negative-error-report 

=>  non-fatal-error (’ zero  involuted  to  negative’)  A 


If  DF  results-in-involute-overflow(a,b) 

"{  ($a$ ) is-implementation-number  A 
( $b$ ) is- implementation-number  } " 

= > //TRUE  "IFF  ($special-involute(a,b)*)  is-an-overflow 
/» . 


"DF  non-fatal-involute-overflow-error-renort 

= > non-f  atal -er  r or  ( ’ in  vo  lute  overflow’)  11 


if  DF  in volute-over  flow-resul t-si gn ( a , b ) 
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"{  ($a$)  is-implementation-number  A «NOT 
im piemen tat  ion -equal s-test (a, implementation-zero)  A 
I ($b$)  is-implementation-number  A #VOT 

implement at ion- equal s-test (b , implementation-zero)  )" 

=>  ’ + ’ //IF 

implementation-gr eater- than- test ( a , implementation-zero) 
//OR  ($b$)  i s-even-integer ; 

=>  ’-•  //IF 

i implementation-less-than-testt  a , implementation-zero) 

i A ($bi)  is-odd-integer  A. 

IfDF  i s-even-integer ( n ) 

"{  ($n$)  is-implementation-number  )" 

=>  residue!  (Sn*)  converted-to-semanol-integer 

/’modulo”  2)  = 0 //IF  (Sn$)  i s-implementation-integer 

9 

= > //FALSE  //OTHERWISE 


IfDF  is-odd-integer(n) 

"{  ($n$)  is-implementation-number 
= > //NOT  (SnS)  i s-even-integer  If. 


If DF  results-in-involute-underflow(a,b) 

"{  ( $a$ ) i3-implementation-number  A 
( $b$ ) is-implementation-number  }" 

= > //TRUE  *ZIFF  ( Sspecial-involute! a , b) $ ) i s-an-under  f low 
If. 


If  DF  non-f  a tal-in  volute-under  flow-error -report 

= > non-f  atal-error  (' involute  underflow’)  If. 


//DF  implementation-involute(a , b) 
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"{  ( t a$ ) i s-imolementation-number  \ 
($b:A)is-implementation-number  } " 

= > ($special-involnte(a,b).'*i) 

limited-to-implementation-precision  /> . 


"In  general,  the  riumer  ic-suppl  i ed  functions  will  not  be 
defined  in  the  body  of  this  SEMAMOL  program.  Instead, 
they  utilize  externally  defined  functions  to  calculate 
the  results.  The  external  functions  exoect  their 
arguments  in  some  particular  form  and  return  a result 
in  some  particular  form.  Conversion  to  and  from  this 
external  form  is  accomplished  by  the  functions 
i n-ex ter nal - forma t and  converted-from-external -format . " 


" DF  impl  ement  at  ion-arctangent  - funct  ion  ( n ) 

" { ($n$)  is-implementation-numberl" 

= > (S0EXTERMAL-CALL-OF  ' ATN • "WITH- A RO'J^EMT  (\  ($n*) 
in-external-format  \)$) 
converted-from-external- format  * . 


ft  DF  implement  at  ion -cosine- funct  ion  ( n ) 

"{ (Sn?)  is-implementation-numberl" 

= > ( $0 EXTERM AL-C A LL-OF  'COS'  J,WTTH-APOUMCMT  (\  (SnSI 
in-external-format  \)$) 
converted-f  rom-external-f  or  mat  ft . 


't  DF  results-i  n-ex  ponential-  funct  ion-over  f low ( n 1 
" { ( Sn$ ) i s-imolementation-number  1 " 

= > ft  TRUE  /'IFF 

($implementation-exponential-function(n)?:) 
is-an-over flow  1 . 

"DF  non-fatal-ex  do nential-function-overflow -error-re port 
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= > non-fatal-error  ('  EXP  overflow’)  If. 

APF  exponential-function-result-siRn(n) 

" { ( $nt ) i s- implementation- number  } " 

= > ’>•  if. 

if  DF  results-in-ex  oo  nential- function -under  flow(n) 

" { ( $n$  ) is-implementation-n umber}" 

- > ATRUE  * IFF 

( Sim pi emen tat ion-ex ponent i al- function ( n ) $ ) 
is-an-under f low  If. 

ADF  non-f at a 1 -ex ponent ial-funct ion -under f. low-error -report 
=>  non-fatal-error (' EXP  underflow')  f . 

ADF  implementation-ex ponent ial-funct ion ( n ) 

" { ( $n$ ) is -implementation-number}" 

= > ($0EXTERMAL-CALL-OF  ’EXP’  0WHH-A RGUMEMT  (\  (Sn*) 
in-external-format  \)$) 
con  ve  r ted-  f r om-ex  ter  nal-  for  mat  <f . 

APF  implement at  ion-in te^er-f unction ( n ) 

" { ( $n$)  is- implementation-number } " 

= > ( S (T  EXTERN  AL -CAL  L-OF  ' IMT  ' AWITH-A  RCU"E1IT  (\  (*n$) 
in-external-format  \)$) 
con ver ted- fr om-ex ter nal -format  * . 

*DF  implement  at  ion-lop,  ar  ithm-funct  ion  ( n ) 

" { ( $n$ ) i s- implement at  ion-number } " 

= > ( S AEXTERVAL-C  ALL-OF  ’LOG’  AWITH- A RGUMFNT  (\  (SnS) 
in-external-format  \)$) 
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converted-from-external- format  11  . 

ADF  impleme ntat ion-random- fu net ion(r) 

"{r  ATS  APOOLEAM } " 

= > AFXTERN AL-CALL-OF  'END'  AWT TH- ARGUMENT  (\’TRUE’\) 
AIF  r AEQ  AT  RUE ; 

= > AEXTERN AL-CALL-OF  'RHP'  AWITH-A  RGUMF.NT  ( \ ' r ALSE ' \ 1 
//OTHERWISE  A. 

//DF  implementation-sine-function  (n) 

" { ( Sn$ ) is-implementation-n umber}" 

= > ( $ AEXTERH AL-CALL-OF  ’STM'  AWITH-ARGU^ENT  (\  (*nS) 
in-external- format  \)?} 
converted-f rom-external-f or mat  A . 

*PF  implementation-square-root-function(n) 

"{ (SnS)  i s-imol emen tat  ion-number } " 

= > ( $ A EXTERN AL-CALL-OF  ' S0°  ' AWJTH- A RG'JMrNT  (\  ($nS) 
in-external-format  \)*) 
converted-from-external-format  A. 

ADF  r esult s- in- tangent- function-over  flow ( n ) 

" { ($n$)  is-imDlementation-number}" 

= > A TRUE  A IFF  ('SimDlementation-tansent-funetionln)*) 
i s-an-over f low  A. 

ADF  non-fatal-tangent-function-overflow-error-renort 
= > non-fatal-error('TAM  overflow’}  « . 

ADF  tangent-function-result-sign (n) 

" { (*.nS)  is-imolementation-numberl" 
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= > fflF  ( ftimplementation-tangent-function (n ) $ ) 
is-standard-negative; 

=>  ’+’  ^OTHERWISE  A . 


0DF  implementation-tangent-function ( n ) 

" { ( $n$ ) is-implementation-n umber}” 

= > ( EXTERMAL-C  ALL-OF  'FVP'  WITH- A RGUVENT  (\  (Sni) 
in-external-format  \)$) 
con ver ted- from-exter nal -format  « . 


i 


impl- 1 30 


Mi  - 


Specification  of  D A Q T C 
Semantic  definitions 


01/28/77 
S EM A MOL  Project 
Relations 


"A  set  of  implementation  dependent  relations  is  defined  by 
BASIC.  The  implementation  independent  portion  of  the  n AS  TC 
specification  assumes  that  the  implementation  dependent 
relations  will  return  a value  in  [/’/d’RUEjtfFALSF!!. 

The  BASIC  standard  is  silent  on  the  nature  of  the 
relations.  In  particular,  It  is  assumed  that  no  error 
conditions  can  occur  in  relational  testing.  If  the  testing 
is  done  using  subtraction,  this  may  not  be  the  case  since  an 
overflow  or  underflow  could  occur.  We  choose  to  assume  that 
this  form  of  comparison  is  not  legal  and  that  no  errors  can 
occur  . " 


//Dr  impleme.ntation-equals-test(a,b) 

"{  ( $a$ ) i s- implement  at  ion-number 
(Sb* ) is- implement  at  ion -number  } " 

= > ($a , b$ ) are-standard-equal  />. 

APF  implementation-not-equals-test(a,b) 

"{  (* aS ) i s- imnl emen tat  ion-number  * 
(SbS)is-implementati on -number  }" 

= > ^ NOT  ( $a , bi ) are-standard-equal  #. 

APR  implementation-less-than-test(a,b) 

( iai ) is-implementation-number  \ 
($b$)is-implementation-number  } " 

= > (ta,b.*)is-standard-less-than  A . 

APF  implement  at ion-greater-than-test( a,  hi 

” { ( $a$ ) is-implementation-number  \ 
($b$ ) is-implementation-number  }" 

= > ( ?a , b$ ) i s-standar d-greater-than  ». 
11 DF  implementation-not-less-test(a,b) 
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"{  ( $a1> ) is-imolementat  ion-number  A 
($b$)is-implementati on -number  }" 

r>  //NOT  ($ a , bS  ) i s-standard-less-tban  <*. 


//DF  impl  ement  at  ion-not-f?r  eater- test  ( a , b ) 

" { ( $a$ ) is-impl ement at  ion-number  A 
( $b* ) i s-impl ement at  ion -number  } " 

= > //NOT  ($a,b$)is-standard-greater-than  /*. 
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"The  implementor  must  define  a function  to  convert  fro"1 
a qAqTr  constant  into  an  implementation  representation 
of  that  constant  up  to  some  precision,  which  in  our 
case  is  the  implementation-precision.  A function  must 
exist  to  convert  from  an  implementation-representation 
to  a qASTC  constant." 


"The  numeric  conversion  routine  has  much  in  common  with 
the  arithmetic  operators.  It  must  have  functions  to 
check  for  conversion  underflow  and  overflow.  The 
method  used  in  this  implementation  will  only  work 
correctly  if  rounding  is  performed  before  underflow  or 
overflow  tests." 


/'DF  results- in-numeric-conversion-over  flowin') 

"{n  //IS  '/STR-INO  % n //IS  <nun*>r  ic-con  stant> } " 

= > //TRIIF  //I^F  (♦conversion-rounded  ((Sn*> 
in-canonical-form)*!  is-an-overrlow  •*. 


/'DP  results-in-numeric-conversion-underflow(nl 

"{n  /*IS  /<STRT*'0  ’<  n "IS  <numer  ic-constant> ) " 

= > /'  T R >.  I F "I^F  (♦conversion-rounded  ((♦n*) 
in-canonical-form)*l  is-an-underflow  " . 


"DF  implementation-numeric-representation(n) 

"{n  //IS  <numeric-constant> 

K "MOT  (Sn")  r esu 1 1 s- in-numer i c-con vers  ion -over fl ow  ^ 
//MOT  ($n$)  resul  t s-in-numer  ic-con  ver  s ion-under  flow  } " 

=>  ( Sconversion-rounded  ((SnS)  i n-canonical-form) * 1 

limited-to-implementation-precision  if  . 


if  DF  conver  sion-rounded  ( n ) 

"{  ( S n * ) is-canonical-float  }" 

= > n <>1?  /»LFMOT'J("ABS(sipnificand-part(n) ))  <- 
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implementation-precision ; 

= > ($n  ,"and-p-of"  implementation-precision4!) 
rounded-to-p-digits  MOTHER WISE  if . 


"Define  the  error  report  for  numeric  constant  conversions 
and  the  function  to  determine  the  result  sign  in  a numeric 
constant  conversion  overflow." 

If  DF  non- fatal-numeric-constant-over  flow-error-report 

=>  non-fatal-error (' numeric  constant  conversion 
overflow ' ) <f . 

flDF  non- fatal-numeric-constant-under  flow-error-report 

=>  non-f atal-er ror ( ’ numer ic-constant  conversion 
underflow ' ) <f . 

If  DF  numeric-constant-overflow-result-sign(s) 

"{s  #IS  <numer ic-constant>  }" 

= > If  IF  sign-string(s)  «EOV 

= > • + » ^OTHERWISE  If. 


"Rounding,  as  defined  in  the  glossary  of  the  FASIC 
standard,  applies  to  machines  of  any  radix.  For  the 
purposes  of  this  implementation  we  will  oerform  decimal 
rounding  by  adding  O.F  and  truncating  the  result." 


flDF  rounded-to-an-integer ( r ) 

"I (Sri)  is-implementation-n umber)" 

= > ( ^standard-add ( r , impl ementat ion-one-ha  1 f) i ) 
truncated-to-an-integer  If. 
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//DF  implementation-one-half 

= > ' 5F-  1 ' n. 

"Truncation  to  an  integer  has  three  cases.  The  first 
case  is  that  the  number, n,  is  already  an  integer.  The 
second  case  is  that  n has  a magnitude  less  than  one. 

The  third  case  is  a number  with  at  least  one  fractional 
digit  and  at  least  one  integer  digit." 


//DF  tr uncated-to-an-integer ( r ) 

"{ ( Sr  $ ) is-implementation-numberl" 

= > r //IF  ( 4r $ ) is-implementation-integer; 

= > implementation-zero  A IF 

// LENGTH  (/<ABS(simnificand-part(  r)  ) ) <=  //*!EG 
exrad-part(r)  ; 

= > (^construct-float  (ALE'7"' 

//LENGTH  ( sign  i f icand-par  t ( r ) ) - (-,,MrG  ex  rad-par  t ( r ) ) 
'/CHARACTERS-OF  s i ?n i f icand-nar t ( r ) ,"with  integer 
exrad"  O).4)  in-canon ical- rorm  //OTHERWISE  . 


"The  implementor  is  required  to  define  a conversion  function 
from  implementation  numbers  into  standard  form  numbers  (i.e. 
PASIC  numeric-constants).  This  conversion  must  he  exact, 
which  means  that  the  following  expression  must  be  true  for 
all  x in  the  set  of  implementation  numbers. 

//DF  conversion- to-standard-float-is-exact(x) 

* ' ( ( SxS ) is-implementation-n  umber)  ' ’ 

=>  imolementation-eouals-test( 

implementation-numeric-reoresentationf 
($x.$)  converted-to-standard-float' 

, ' ' i s-equal-to  ' ' x)  // . 

Since  this  example  implementation  alreadv  uses  the 
standard  form  for  its  representation,  the  conversion  to  the 
standard  form  is  the  trivial  one." 


'/DF  converted-to-standard-float(x) 
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" { ( Sx$)  i s- implement at  ion-number } " 
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//DF  max-number-of-unreturned-sosubs 

=>  10  It. 

it DF  max-number-of-for-blocks 
= > 10  It . 

It  DF  implementation-margin 
= > 65  It. 

It  DF  implementation-print-zone- width 

= > 15  It. 

It  DF  max-assignable-string-length 
= > 18  '/. 

//DF  implementation-significance- width 
= > 3 ^ 

4 PROC-DF  fatal-error(msg1 
" { msg  "IS  "STRING} " 

//BEGIN 

//COMPUTE!  //Oi'TD,!T  ( msg  //C  W end-o  f-pr  i n t- 1 i ne-char  ) 

"COMPUTE!  "OUTPUT/  ' execution-termi nated  ' "CV 

end-of-print-li ne-char) 

"C0MOUTF!  "STOP 
//END 
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0DF  implementation-precision 

= > 3 ft. 

#DF  implementation-zero 

= > »0E0»  If. 

ftDF  implementation-one 

= > ' 1 EO ' ft. 

ftDF  implementation-negative-one 

= > ' - 1 EO  ' ft. 

ftDF  implementation-infinity 

= > ' 1 ' ft. 

"Note  that  the  standard  seems  to  require  that  the 
magnitudes  of  positive  and  negative  infinity  he  the 
same . " 

ftDF  implementation-negative-infinity 
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= > ' - 1 E4  ' //. 

"Similarly  define  the  infinitesimals." 

#DF  implementation-infinitesimal 
= > ’ 1 F-4  ’ If. 

AD?  implementation-negative- infinitesimal 
= > » _ 1 E-4  ' //. 
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A DF  root-node(n) 

"{  n AIS  ANODE  }" 

= > basic-program  If. 

If  DF  parent-node(  n ) 

"{  n AIS  ANODE  }" 


=>  AFIRST  x AIN  ( A SEQUENCE -OF-MODES-IM  basic-program) 
ASUCH-THAK  ATHERE-EXISTS  i : 1 < = i<  = ASEO-COUNT ( x ) 
ASUCH-THAT ( ASEG  i A OF  x AEQ  n))  A. 


ADF  sequence-of-ancestor s-of (n ) 

"{  n AIS  ANODE  }" 

= > ANILSEO  AIF  n AEO  basic-program  ; 

=>  ASUBSEQUENCE-OF-ELEMENTS  x AIN 

(ASEOUENCE-OF-MODES-IN  basic-program)  ASUCH-T»AT(  n 
A IS- IN  ASEQUENCE-OF-NODES-IN  x)  AOTHERVISP  A. 


ADF  first-char acter-in ( s ) 


"{  s *IS  ASTRIMC  }'• 

= > ALEFT  1 ACHARACTERS-OF  s A. 

i 

ADF  last-char acter-in ( s) 


"{  s AIS  ASTRING  }" 

=>  ARIGHT  1 ACHARACTERS-OF  s A. 


ADF  never se-sequence ( sea ) 

"{  seq  AIS  ASECUENCE  }" 

= > seq  AIF  ALENGTH ( seq ) <=  1 ; 

=======================  util-140 


r 
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= > #LAST-ELEMENT-IN  seq  It CS  reverse-sequence( 

#TERMINAL-SUBSEQ-OF-tENGTH  ^LENGTH ( seq ) - 1 flOF  seq) 
^OTHERWISE  It. 
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abs- funct ion- va 1 ue ( n ) eval-7Q 
activate-for-block(stmt)  control-36 
active-control-variable(stmt)  contro\-3p 
add-overflow-result-sign  (a,b)  i mol- 1 1 9 
adjusted-for-tabbing(n)  control-S^ 
all-but-first-character-in(s)  float-°6 
all-but-first-element-in(list)  control - 6 3 
all-but-last-element-in(list)  cs-23 
al l-data-is-in-range( "wrt"  stmt)  control-44 
all-fors-have-matching-nexts-in(prog)  cs-25 
all-function-references-agree-with(stmt)  c s-32 
all-functions-are-defined-in(prog)  cs-30 
al 1-1 ine-nrs-are-non-zero-in( prog)  cs-23 
all-line-n urn bers-exist-in( prog)  cs-24 
all-nexts-have -matching- fors-in(prog)  cs-26 

already-in-last-print-zone  control-53 
altered-i f-too-long  (str)  control-53 
ampersand  syntax-18 
apostrophe  syntax-13 

append-and-output  (str)  control-49 
append-to-cur r ent-pr int-line  (str)  control-40 
apply-numer ic-relation-test  (opdl,  relop,  opd2)  eval-°5 
apply-string-relation-test  (oodl,  relop,  opd2)  eval-Q4 
are-standard-equal ( a, b)  float-104 
argument  syntax-13 

argument-expression-of(ref)  select-107 
argument-list  syntax-13 
argument-value-of ( ref ) eval-77 
array -declaration  syntax-10 
array-declaration-for(aname)  sname-66 
arrays-are-defined- first- in (prog)  cs-27 

arrays-are-uniquely-dimensioned-in(prog)  cs-27 
as-a-parameter ( def-st , "has"  name)  sname-67 
assign-input-values (stmt)  control -41 
assign-next-datum( "to"  v)  control-55 
assign-str ing-value-or-error ( "to"  v)  control-55 
asterisk  syntax-13 
atn-function-value(n ) eval-73 
blanks(n)  control-52 
bounds  syntax-10 

bounds-par t-o '( node)  select-111 
canonical-abs( r ) float-90 

canon i c al -add ( r x , r y ) ^loat-bQ 

canonical-al  ign ( r ,"to"  e)  float-100 

canonical-divide(rdividend,rdivisor, precision)  float-102 
canonical-nultiply(rx,rv)  rloat- 1 0 1 
canon ical-number-output-representation  (n)  conv-eQ 
canonical-si"n (r ) float-99 
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circumflex  syntax-19 

class- b-significand(s,e)  con v- 8 9 

class-d-exrad(e  , "with-respect-to"  s)  conv-91 

class-d-significand(s)  conv-91 

close  syntax-18 

colon  syntax-19 

columnar-position  control-51 

comma  syntax-18 

consistent-number-of -arguments- in ( prog)  cs-31 
consist ent-n umber -of-subscripts-in( prog)  cs-28 
constant  syntax-13 
construct-float (m , e ) float-97 

control-variable  syntax-3 
control-variable-in(stmt)  select-113 
control-var iable-is-active( x , "in"  stmt)  control-38 
con version-rounded ( n ) impl-133 

convert-and-pr int  (x)  control-50 

convert-canonical -float- to- semanol-integer ( n ) conv-86 

conver ted-to-canonical-f loat  (r)  conv-86 

converted-to-semanol-integer(r)  conv-86 
converted-to-standard-float(x)  impl-135 
cos-function-value(n)  eval-78 
data-list  syntax-9 
data-statement  syntax-9 
datum  syntax-9 

deactivate- for-block(stmt)  control-81 
def-statement  syntax-10 

def-statement-expr ession-of ( def ) select-107 

def-statement-name-of ( def ) select- 103 
def-statement-par ameter-of (def ) select-103 
def -statement-wi th-name (dname)  eval-77 
destination-line-number-list-in  (stmt)  control-60 
destination-line-number-of  (stmt)  select-113 
difference  syntax-12 
digit  syntax-15 
dimension-statement  syntax-10 

divide-by-zero- result-sign ( numerator ) impl-123 

divide-overflow-result-sign (a,b)  impl-123 

divisor-length(r ) float-102 

dollar  syntax-17 

ef fect-of ( stmt ) control-36 

end-line  syntax-5 

end-of-input-reply  syntax-20 

end -of- input-reply-char  control- 41 

end-of-line  syntax-5 

end-of-pr int-1 ine  syntax-9 

end -of- print-line-char  control-43 

end-statement  syntax-3 
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ends-in-separator(stmt)  control- 'i  3 
equality-relation  syntax-7 
equals  syntax-19 

ex  act 1 y-enoush-d a t a ( " wr t " stmt)  control-1^ 
exclamation-point  syntax-17 
ex p- f unct ion- val ue ( n ) eval-79 

exponential-function-overflow-effect(n)  e val -°  1 

exnonential-function-result-sip.n(n)  imnl-1 23 

exponential-f  unct ion-under  f 1 ow-ef  f ect(n)  eval-B2 

exnression  syntax-11 

exrad  syntax-11! 

ex r ad-output-si?n ( e ) conv-°1 

exrad-part(r)  float -97 

factor  syntax-12 

fal se-due-to-er ror (ms? ) cs-22 

f a ta 1-error (ms?  ) impl-137 

f ata 1-syn tact i c-er r or ( ms? ) cs-22 

first-character-in(  s)  util-l'iO 

first-dimension-bound-of(b)  select-1  1 1 

f irst-dimension-of ( s)  select-111 

first-dimension-upper-bound-value-for(arrayel)  sn  ame-55 
first-dimension-value(sub)  s name -6 5 

first-executable-statement-startiny-with  (stmt)  control-53 
f i r st-par t-of ( 1 i s t , " up  to  for-block-1 i st-el ement"  x)  control-70 
for-block-list-element(stmt)  control -39 

for-statement  syntax-3 
for-statement-effect(stmt)  control-36 
for-statement-successor-of(stmt)  control-60 
fors-and-neYts-are-pronerlv-matched-in(pro?)  c s - 2 6 

fraction  syntax-11! 

funetions-are-defined~first-in(nro?)  cs-’l 
functions-are-uniquely-defined-in(oro?)  cs-°0 
°osub-s tat ement  syntax -7 

?osub-statement-effect(stmt)  control-39 

goto- statement  syntax-6 

soto-statement-successor-of  (stmt)  control-5Q 
sreater-than  syntax-1^ 
has-a-zero-upper-bound(b)  cs-2° 
has-an-arsument(ref)  select- 107 

has-one-d imens ion ( b ) select-111 

has-two-d imens ions ( b ) select- 1 1 1 

i f-thep-statement  svntax-6 

if-then-statement-successor-of  (stmt)  control -5 3 

implementation-add(a,fc)  imol-120 

implementation-arctanqent-function(n)  imnl-127 
implementation-cosine-function(n)  imnl-127 
implementation-diviHe(a,b)  impl-121* 
implementation-equals-test(a,b)  imp l-  1 3 1 
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impl ementat ion -exponential -fun ct ion ( n ) impl- 1 23 
implement at ion-greater-than-test(a.b)  impl-131 
implementation-infinitesimal  impl- 1 39 

implementation-infinity  impl-133 
impl ementat ion -integer- function (n ) impl- 1 23 
impl ementat ion- in volute( a,b)  impl-126 

implementation- less- than- test( a f b)  impl-131 
implementation-logarithm-function (n)  impl-123 

implementation-margin  impl-137 
implementat ion-mult iply( a ,b)  impl-122 

implementat ion-negate( a)  impl-119 

impl ementat ion -negative- inf ini tesimal  impl- 1 39 

im pi ementat ion-negative- in  f inity  impl- 1 3° 

implementation-negative-one  impl- 1 33 
implementat ion -not-equals- test ( a,b)  impl-131 
implement at ion-not-gr eater -test ( a,b)  impl- 1 32 

implement at ion-not-less- test ( a,b)  impl-131 

implementat ion-numeric-r epresen tat  ion ( n)  imDl-133 
implementation-one  impl-138 
implementation-one-half  impl-135 
implementation-precision  impl-133 

impl ementat ion-print- zone-width  impl-137 
implementat ion-random- function ( r ) impl- 1 29 

implementation-significance-width  imnl-1 37 
implementat ion-sine- function (n)  impl -1 29 
implement  at ion-squa re-root- function  (n)  impl- 1 2^ 

implementation-string-output-representation  (str-rep)  impl-13a 
implementat ion-subtr act ( a,b)  impl-121 

implementat ion- tangent- funct ion ( n ) imol-130 
implementation-zero  imDl-133 
in-canonical-form( r ) float-95 
in-output-class-a-format(n)  con v- 3 8 
in-output-class-b-format(n)  conv-39 
in-output-class-c-format(n)  conv-90 
in-output-class-d-format(n)  conv-91 
increment  syntax-3 

increment-control-variable(  stmt)  control-97 
increment-of-matching-for  ( stmt)  control-'* 7 
increment-part -of- for (stmt)  select- 1 19 
index-expression-of  (stmt)  select-113 
index-of-f irst-non-zero-in  (n)  control-59 
index-of-last-non-zero-in(n)  float-97 
initial-value  syntax-3 
initial-value-in-for(stmt)  control-37 
initial-value-part-of-for(stmt)  select-119 
initialize-globals  control-35 
input-data-list-in(ln)  control- 9 7 
input-data-types-match(  "wrt"  stmt)  control-9i| 
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input-new-data-for(stmt)  control-45 
input-prompt  syntax-19 
input-prompt-character  control-47 
input-reply  syntax-20 
inDut-reply-tree(i-f-t)  control-40 
input-statement  syntax -9 

input-statement-effect (stmt)  control-40 
int-f unct ion- va lue ( n ) eval-79 
integer  syntax-14 

integer-exponentiation-limit  imnl-125 
integer-va lue  (nx)  control-51 
invalid-input-reply(mss)  control- 4 3 
involute-overflow-res ult-sign(a,b)  impl-125 
involution  syntax-12 

is-abs-function-ref(sref)  select-108 
is-an-over f low( n ) imol-117 
is-an-under f low( n ) impl-117 
is-atn-function-ref(sref)  select-103 
is-canonical-float( r ) float-94 
is-canonical-integer ( n ) float-97 

is-con tex t- f ree-svn tact ically-va lid (prog)  cs -22 
is-contextually-syntactically-valid(nrogl  cs-22 
is-cos-function-ref(sref)  select-103 
i s-def-s tatemen  t-par  ameter ( name ) s name-67 
is-def-statemen t-with-par ameter ( def ) select-109 
is-even-integer(n)  imol-126 

is-exactly-representahle-for-class-c(n)  conv-90 
is-executa  ' ^-statement  (stmt)  control-5Q 
is-exp-function-ref(sref)  select-100 
is-explicitly-declared-arrayf  aname)  sname-66 
i s- impl emen  t at ion-inteser(n)  impl-117 
is-implemAntation-number(n)  imnl-1  16 
is-in-integer-exponentiation-limit(n)  impl-125 
i s- i n-ou tput-c 1 ass-a ( n ) conv-Q3 
is-in-output-class-b(n)  c o n v - 0 9 
is-in-output-class-c(n  ) conv-90 
is-int-function-ref(sref)  select-109 
is-invalid-input-reDlv(stmt)  control- 4 9 
is-log-function-ref(sref)  select-109 
is-nested ( stmto  , "in"  stmtl)  cs-27 
is-non-executable(stmt)  select-1  13 
is-not-a-control -statement (stmt)  select- 1 15 
is-not-in-ranRe(d , "wrt"  v>  control-44 
is-not-stop-or-end(stmt)  control- 3 5 

is-numer ic-datum( d ) control-44 

is-numeric-defined-function-ref(ref)  select-106 
is-numeric-expression(exp)  select-105 

is-nu meric-relational-expression  (re  1 -exp)  select-112 
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is-numer ic- variable ( v)  select-114 
is-odd-integer(n)  impl-126 
is-parenthetical (exp)  select-106 
is-pr int-separ ator  (nx)  control-48 
is-quoted-str ing ( d ) select-114 
is-rnd-function-ref(sref)  select-109 
is-sgn-function-ref(sref)  select-109 
is-simple-control-statement( stmt)  select-113 
is-sin-function-ref(sref)  select-109 
is-sqr-function-ref(sref)  select-110 
is-standard-float ( n ) float-94 
i s-standard-gr eater-than ( a b)  float-104 

is-standard-less-than ( a b)  float-104 

is-standard-negative(n)  float-103 
is-standard-positive(n)  float-103 
is-standard-zero(n)  float-103 
is-string-constant(exp)  select- 106 
is-st ring-ex press  ion (exp)  select-105 

is-string-relational-expression  (rel-exp)  select-112 
is-string-variable(exp)  select-105 
is-tan-function-ref(sref)  select-110 
keyword  syntax-17 
last-eharacter-in(s)  util-140 
last-seg-of  (nx)  select-113 
left-hand-side-of(stmt)  select-114 
less-than  syntax-19 
letter  syntax-15 
limit  syntax-8 

limit-part-of-for  ( stm'; ) select-114 

limited -to- implementation-preci sion (n)  imol-1 17 

line  syntax-5 

line-containing  (node)  control-60 
line-id  syntax-5 

line-nr-next-following(line-nr)  cs-23 
line-number  syntax-6 

line-number-part-of  (In  ) select-112 
line-number-value-of  (n)  control-59 
line-of-spaces  control-52 

lines-are-in-ascending-line-nr-order-in(prog)  cs-23 
lines-are-uniquely-numbered-in(prog)  cs-24 
1 i st-element ( number  , "in"  list)  control-42 
list-of-variables- to-be-input-in (stmt)  control-42 
li st -of-zone-tab- positions  control-52 
log-function-value(n)  eval-79 
magnitude(n)  control-59 
margin-checked  (str)  control-53 
match ( for-stmt , "and”  next-stmt)  cs-25 
matches-active-for(stmt)  control-47 
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matchmg-next(stmt)  control-M 
max-assignable-st’-in^-length  impl- 1 ?7 
max-number-of-for-blocks  impl-1 77 
max-number-of-ur-eturned-gosubs  imol-1 37 
minus  syntax-1Q 

modified-sign-of(inc)  control-61 
multiply-overflow-result-sirn(a,b)  impl-122 
nameable-nart-of(node)  select-1  10 
negate-overflow-result-sign(a)  impl-1  17 
negation  syntax-11 

new-active- for-block-list(stmt)  control-75? 

nex t-ex ecut abl e- s t atenen t- f o 1 lowi ng  (stmt)  control-57 

next-input-line  control-40 

next-statement  syntax-7 

next-statement-effect (stmt)  control- 4 6 

next -statement- successor -of (stmt)  control-62 

next-zone-tab- position  control-52 

nines  ( n ) conv-°2 

no-dimension-option- co nfl ict(prog)  cs-29 
no -matching-active- for  control- 4 7 
no-recursive-functions-in(prop)  cs  - 30 
non- fatal -add-over  flow-error-re  port  impl-1  19 
non-fatal-add-underflow-error-report  impl-120 
non-fatal-divide-hy-zero-error-renort  imol-1 27 
non-fat a 1-divide-overflow -error-report  imnl-123 
non-fatal -divide-under flow -error-report  impl-124 
non-fatal-error (ms^  ) impl-l3Q 

non-fatal-exnonential-function-overflow-error-report  impl-127 

non-fatal-ex ponential-functiori -underflow -error-re port  imol-1?0 

non-fatal-involute-overflow-°rror-renort  imn  1 - 1 2r' 

non-fatal-ir.  volute- underflow -error-report  i*npi_i.?6 

non -fata 1-multinly-overflow-error-reoort  impl-122 

non-fat  a 1-multiplv- underflow-error-report  imnl - 1 

non-fatal-negate-overflow-error-renort  imnl-1 1° 

non-fat a 1 -negate- underflow-error-report  imnl-1 lb 

non- fatal -numeric-const  an t-ov«rflow-error-repor‘  imnl-1 7 4 

non  - f atal  -numer  ic-con  st  ant-und  er  f 1 ow-er  r or-r  er  imnl-1  7 i 

non-fa tal-overflow-error-report( on)  eval -7° 

non-fatal-subtract-overflow-error-reoort  imn 1 - 1 20 

non-fatal-subtract- underflow -error-re  port  i ">n  1 - 1 2 1 

non-fatal-tan  gent-function-overflow -error-re port  i m o 1 - 1 ?o 

non-fat  a l-underflow-error-report(op)  e v a 1 -77 

non- fatal -zero-involuted- to -ne^ative-error-report  i^nl-l?10 

nonexistent -line-is-ref erenced-bv( stmt)  cs-24 

nonexistent-line-is-referenced-by-on-goto( stmt)  cs-?5 

nonexistent-line-is-rererenced-bv-other-control(stmt)  cs-?1? 

not-equals  syntax-7 

not-ereater  syntax-"7 
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not-less  syntax-7 
nr-zones-in-margin  control-53 
number-of-bounds-in ( node ) cs-28 

number-of-dimensions-in(node)  cs-28 
number -of -subscripts- in (node)  cs-28 

number-sign  syntax-17 
numeric-array-element  syntax-15 
numeric-array-name  syntax-15 
numeric-array-name-of (node)  select-1  10 
numeric-constant  syntax-14 

numeric-constant-overflow-error-effect(s)  eval-83 
numeric-constant-overflow-result-sign(s)  impl-1 34 
numer ic-constant-under  f low-ef  f ect  eval-83 
numeric-constant-value(n)  eval-82 
numeric-defined -function  syntax-10 

numer ic-defined-function-name-of (dr ef ) select- 107 
numeric-defined-function-ref  syntax-13 
numeric-defined-function-ref-of(ref)  select- 107 
numer ic-defined-funct ion-value (dref)  eval-77 

numeric-expression  syntax-11 
numeric-expression-of(exp)  select- 105 
numeric-function-ref  syntax-12 
numer ic-funct ion- value( ref)  eval-76 
numeric-let-statement  syntax-6 
numer ic-let-statement-ef f ect (stmt)  control -45 
numeric-output-representation(n)  conv-87 

numeric-relation-value  (rel-exp)  eval-35 

numeric-rep  syntax-14 

numeric-representation-or-zero(str)  control-43 
numeric -supplied- function-ref  syntax-13 

numeric-supplied-function-ref-of(ref)  select-107 
numer ic-supplied- function- value ( sref)  eval-77 

numeric-value(exp)  eval-68 

numeric-value-is-not-in-range(d)  control-45 

numeric-variable  syntax- 15 

on-goto-statement  syntax-7 

on-goto-statement-successor-of  (stmt)  control-60 
one-dimen si on -ar ray-el ement-name-of  sn ame-64 
open  syntax-18 
operand-1 -of ( x ) select-106 
oper and-2-of ( x ) select-106 
option-base-for(arrayel)  sname-66 
option-base-of ( opt ) select-112 
option-statement  syntax-10 

option-statemen t-is-f ir st- in (prog)  cs-2° 

output-c lass-a-max imum  conv-92 
output-c lass-b-max imum  conv-92 
output-class-b-minimum  conv-Q2 
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output-class-c-maximum  conv-92 

output -cur  rent-print-line  control-50 

output-sign-str ing ( n ) conv-88 

over f low-error-ef fect(op1 ,op,op7)  eval-71 

overflow-result-sign(op1 ,op,op2)  eval-72 

parameter  syntax-11 

parameter-list  syntax-11 

parent-node ( n ) util-140 

percent  syntax-17 

per form( op  1 , op , op2)  eval-70 

period  syntax-19 

plain-string-character  syntax-16 

plus  syntax-18 

position-of-control-variable(x)  control-39 
positive-expression  syntax-11 

pr ec ision-1 imi ted (m , e , ’’limited  to"  precision)  float-102 

primary  syntax-12 

print  (str)  control-49 

print-comma  control-52 

print-item  syntax-9 

print-list  syntax- 8 

pr int-1 i st-sequence-of  (stmt)  control-43 
print-separator  syntax-9 
print-statement  syntax-8 

print-statement-effect  (stmt)  control-47 
print-tab  (n)  control-51 
pr int-the-item  (str)  control-57 
product  syntax-12 
program  syntax-5 
question-mark  syntax-19 
quote  syntax-17 
quoted-string  syntax-16 
quoted-string-character  syntax- 16 
quotient  syntax-12 

rand omize-occurs-in- program  eval-°0 
randomize-statement  syntax-11 
read-input-file  control-41 

read-statement  syntax-10 
read-statement-ef feet ( stmt)  control-54 

references-have-no-arguments( stmt)  cs-32 
references-have-one-arEument(stmt)  cs-72 
relation  syntax-7 

relation-of  (rel-exo)  select-112 
relation-value  (rel-exp)  eval-93 
relational-expression  syntax-6 
relational-expression-of  (stmt)  select-112 
remark-statement  syntax-11 

remark-str ing  syntax-16 
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r emove-quotes- fr om ( s ) eval-6q 

requires-special-divide-ef fect(op1  ,op2)  eval-7'4 
requires-special-effect(op1 , op , op2 ) e val-74 
requires-special-in volute-ef feet (op  1 ,op2)  eval-75 

reset-fir st- time-through  control-76 

residue  (n, "modulo"  m)  control-51 
restore-statement  syntax-10 
restore-statement-effect  control-56 
result s-in-add-over flow( a , b ) impl-1  Id 

results-in-add-underflow(a,b)  impl-1 20 
result s-in-divide-overflow( a, b)  impl-1 23 
results-in-divide- underflow (a, b)  impl-1 24 

resul ts-in-exponential-funct ion-over flow(n)  impl-1 27 
result s- in-ex  do nential-fu net ion-underflow(n)  imol-1 28 

results-in-involute -overflow (a, b)  impl-1 25 

result s-in-involute-underflow( a, b)  impl-1 26 
results-in-multiply-overflow(a,b)  impl-121 
results-in-multiply-underflow(a,b)  impl-1 22 
results-in-negate-over f low(  a ) impl-1  IP 

results-in-negate-underflow(a)  impl-1 Id 
results-in-numeric-conversion-overflow(n)  impl-1 33 
results-in-numeric-conversion-underflow(n)  impl-1 33 
results-in-overflow(op1  ,oo,op2)  eval-70 
results-in-string-overflow(s)  eval-68 
results-in-subtract-overflow(a,b)  imnl-1 20 
result s-in-subtract-underflow( a, b)  impi- 1 2 1 
result s-in-tangent-funct ion-over flow(n)  impl-1 20 
resul ts-in-under flow ( op  1 ,od,od2)  eval-7 1 

retrieve-latest-return-point  control-6? 
retur n-statement  syntax-7 
return-statement-successor  control -A2 

r ever se-sequence ( seq ) util-140 

right-hand-side-of(stmt)  select-1  15 

rnd-function-value  eval-7Q 
root-node(n)  util-140 

rounded-for-significance-width-output(n)  conv-8° 
round ed-to-an-integer(r)  impl-1 34 

rounded-to-p-digits(n,p)  float-d? 

rounding- factor -for (n,p)  float-98 

s-own-1 ine-number  (stmt)  control-5d 

satisfies-for-expression(stmt)  control-61 
second -dimension-bound-of(b1  select-1 1 1 

second-dimension-of(s)  select-1  1 1 

second-d imen s i on-up pe r-bou nd-value-f or (ar ravel)  sname-66 
second-dimension-value(sub)  sname-65 

second-par t-o f ( 1 i st , "a f ter  for-block-list-element"  x)  control-?0 
semicolon  syntax-10 
seauence-of-ancestors-of(n)  util-140 
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sequence-of-array-declarations-and-references-in(prog)  cs-33 
sequence-of-array-declarations-in(prog)  cs-33 
sequence-of-array-references-in(prog)  cs-33 
sequence-of-def -stat err ents-in(  prog)  cs-34 
sequence-of -defined-function-references-in(prog)  cs-34 

sequence-of-executable-statements-in  (px)  control-57 
sequence-of -for-statements-in ( prog)  cs-33 
sequence-of-for-statements-preceding(stmt)  control-52 
sequence-of-integer s-of-length  (1  , "star ting-at"  i control-5? 
sequence-of-line-ids-in( prog)  cs-3? 
sequence-of-lines-in( prog)  cs-32 

sequence-of -next-statements-fol lowing!  stmt)  control-52 
sequence-of-next-statements-in(prog)  cs-33 
seauence-of-option-statements-in(prog)  cs-33 
sequence-of-statements-in  (px)  control-57 
set-latest-return- point- to (stmt)  control-39 

sgn-funct ion-value ( n ) eval-80 

short- string-let- st atement-ef feet ( stmt)  control -45 

sign  syntax-14 

sign-string ( r ) float-103 

significand  syntax-14 

significand-part(r ) float-97 

simple-numeric- variable  syntax- 1 5 

simple-perform(op1  ,op,op?)  eval-73 

simple-statement-successor-of  (stmt)  control-56 

sin-function-value(n)  eval-80 

slant  syntax-19 

space  syntax-17 

spaces  (n)  control-51 

special-divide-effect(opl)  eval-74 

special-effect(op1 ,op,op?)  eval-74 

special-involute(a,b)  impl-124 

special-involute-ef fect(op1 ,op2)  eval-75 

special-logarithm-function-effect(n)  eval-fl  1 

special-square-root-function-result(n)  eval-Pl 

sqr-function-value(n)  eval-°0 

standard-abs ( r ) float-99 

standar d-add ( r x , r v ) float-99 

standard-ar ray-el ement-name-of ( name ) sname-64 

standard -divide(rdividend,rdi visor, precis  ion)  float- 102 
standard -multiply! rx,ry)  float-101 

standard-name-of ( name)  sname-64 
standard-negate! rx ) float-100 

standard-parameter-name-der ived-rrom  (def)  sname-67 
standard-s ign ( r ) float-98 
standard-subtr act ( rx  ry)  float-101 

statement  syntax-5 
statement-containing(nx)  sname-b7 
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statement-par t-of( In ) select-115 

statement-selected-by  (ix  ,"Prom"  lnlistl  control-50 
statement-successor-of (stmt)  control-55 

statement-whose-line-number-is-eouivalent-to  (sn)  control-55 

stop-statement  syntax-? 

str ing-character  syntax-15 

string-constant  syntax-14 

string-constant-of(exp)  select- 106 

str ing-equal s-test  (opd1,opd2)  eval-?4 

string-expression  syntax-13 

string-expression-of(exo)  select- 105 

string-let-statement  syntax-6 

string-let-statement-effect(stmt)  control-46 

string-not-equals-test  (opdl,  ood2)  eval-34 

string-relation-value  (rel-exp)  eval-34 

string-value(exp)  eval-63 

string- value- is-not-in-range(d)  control-45 

string-variable  syntax-15 

string-variable-of(exp)  select- 105 

subscript  syntax-15 

subscript-part-of(node)  select-110 

subtract-overflow-result- sign (a,b)  impl-121 

sum  syntax-12 

tab-call  syntax-9 

tab-value  ( tc ) control-50 

tab-value -less-than-one  control-51 

tan-function-value(n)  eval-?0 

tangent- function-over  flow-effect ( n)  eval-?2 

tangent- function-result-sign ( n ) impl-1 29 

term  syntax-12 

totality-of-data-in(prog)  control -56 
truncated-after-the-p-th-digit(n,o)  float-9Q 
truncated-to-an- integer (r ) impl-1 35 
two-dimen si on- ar ray-el erne nt- name -of  sname-65 
underflow-effect(op)  eval-72 

under flow-is-a-detected-non-fatal-er ror  impl-1 13 
underline  syntax-19 
unquoted-string  syntax-17 
unquoted-string-character  syntax-16 
valid  ate- in put-data- for (stmt)  control-41 

value-of-datum( d , "wrt"  var)  control-42 
value-of- increment- in- for ( stmt)  control-37 
value-of-limit-in-for (stmt)  control-37 
variable  syntax-14 
variable-list  syntax-9 

wi th-decimal - point- removed (m ,e ) float -9 6 
with-exrad-appended (r ) float-95 

with- leading -plus- signs-removed (m ,e ) float-95 
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with-leading-zeroes-suppressed  (n)  control-59 
with-tr ail injr- zeros- removed  (m,e)  float-95 

without-trailing-zeros(n)  float-96 
zeros(n)  float-100 
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METRIC  SYSTEM 


BASE  UNITS: 


Quantity 

Unit 

SI  Symbol 

Formula 

length 

metre 

m 

mass 

kilogram 

k8 

time 

second 

s 

electric  current 

ampere 

A 

thermodynamic  temperature 

kelvin 

K 

amount  of  substance 

mole 

mol 

luminous  intensity 

candela 

cd 

SUPPLEMENTARY  UNITS: 

plane  angle 

radian 

rad 

solid  angle 

steradian 

sr 

DERIVED  UNITS: 

Acceleration 

metre  per  second  squared 

m/s 

activity  (of  a radioactive  source) 

disintegration  per  second 

(disintegration  )/s 

angular  acceleration 

radian  per  second  squared 

rad/s 

angular  velocity 

radian  per  second 

rad/s 

area 

square  metre 

m 

density 

kilogram  per  cubic  metre 

kg/m 

electric  capacitance 

farad 

F 

A-s/V 

electrical  conductance 

siemens 

S 

AA/ 

electric  field  strength 

volt  per  metre 

V/m 

electric  inductance 

henry 

II 

Vs/A 

electric  potential  difference 

volt 

V 

W/A 

electric  resistance 

ohm 

VIA 

electromotive  force 

volt 

V 

W/A 

energy 

joule 

) 

N-m 

entropy 

joule  per  kelvin 

|/K 

force 

newton 

N 

kg-m/s 

frequency 

hertz 

Hz 

(cycle  )/s 

illuminance 

lux 

lx 

Im/m 

luminance 

candela  per  square  metre 

cd/m 

luminous  flux 

lumen 

Im 

cd-sr 

magnetic  field  strength 

ampere  per  metre 

A/m 

magnetic  flux 

weber 

Wb 

Vs 

magnetic  flux  density 

tesla 

T 

Wb/m 

magnetomotive  force 

ampere 

A 

power 

watt 

W 

|H 

pressure 

pascal 

Pa 

N/m 

quantity  of  electricity 

coulomb 

C 

As 

quantity  of  heat 

joule 

I 

N-m 

radiant  intensity 

watt  per  steradian 

W/sr 

specific  heat 

joule  per  kilogram-kelvin 

)/kg-K 

stress 

pascal 

Pa 

N/m 

thermal  conductivity 

watt  per  metre-kelvin 

W/m-K 

velocity 

metre  per  second 

m/s 

viscosity,  dynamic 

pascal-second 

Pa-s 

viscosity,  kinematic 

square  metre  per  second 

m/s 

voltage 

volt 

V 

W/A 

volume 

cubic  metre 

m 

wavenumber 

reciprocal  metre 

(wave)/m 

work 

joule 

1 

N-m 

SI  PREFIXES: 


Multiplication  Factors  Prefix  SI  Symbol 


1 000  000  (KIO  000  - It)11 


tera 


1 


1 Of  HI  000  000  * to* 

1 000  000  * 10* 

1 000  * 10’ 
100  * 101 
10  - 10' 

0 1 =>  It)-' 
0 01  * 10  1 
0 001  * 10-' 
0 000  001  * 10  • 
oooooooooi  * ur* 

0 000  000  000  001  Ml" 
0 000  000  0001  KIO  001  10  " 

0 000  000  000  IHIO  tMM)  001  111'" 

* Ti.  be  avoided  where  possible 


«'»•  li 

mega  M 

kilo  k 

hecto*  h 

deka*  da 

Heel*  d 

rent!*  i 

m i III  m 

micro  p 

nano  n 

plcn  p 

femtn  f 

alto  a 


MISSION 
Of 

Rome  Air  Development  Center 


RADC  plans  and  conducts  research,  exploratory  and  advanced 
development  programs  in  command,  control,  and  communications 
(C3)  activities , and  in  the  C3  areas  of  information  sciences 
and  intelligence.  The  principal  technical  mission  areas 
are  communications , electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences , microwave 
physics  and  electronic  reliability , maintainability  and 
compatibility . 


